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ARMAZENAGEM DE PROGRAMAS 

Enderego inicial do BASIC. Como fazer a leitura da 
membria. Tradugao dos c6digos. Procurando pe- 
las vari^veis. Vari^veis num^ricas. Cadeias de ca- 
racteres e matrizes. Como a memiria do 
computador e utilizada 11 01 




UMA PLANILHA ELETRONICA (1) 

que 6 uma planiiha de cdlculo? Organize a infor- 
magao, Por que usar uma planiiha. C^lculos feitos 
pelo computador. Usos da planiiha eletronica. Pro- 
jegOes. Uma planiiha tipica. Faca sua pr6pria pla- 
niiha. Planejamento e desenho. R6tulos para as 
linhas e colunas. Como preencher as celulas. co- 
meco do programa 1 108 



AVALANCHE: PEDREGULHOS (1) 

VerificagSo do nivel do jogo. Rotina de movimen- 
tacSo da pedra. Animagao com duas estruturas. 
Rolando pela encosta. A pedra chega ao mar. De 
volta ao topo. Willie foi atingido? 1116 




PLANODAOBRA 

"1 NPUT' e uma obra editada em fascicules semanais, e cada 
conjuntode 15 fascicules com poe urn volume Acapa paiaenca- 
dernagSo dc cada volume esiar^ ^ venda oportunamente. 

COMPLETE SUA COLE^AO 

Exemplares atra^ados* at^ seis [nesesa.p6s ocncerramenio da cole^do^ pode- 
rSo ser comprados, a pre^os aiuaJizados, da seguinie forma: 1, PESSOALr 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidi>r local, 
cujo endereco poderiser faciimeme conseguido juntoa qualquer jornaleiro 
de sua cidade. Em Sao Paulo, os cndere^os sao: rua Brigadeiro Tobias. 773. 
Centro; avenidfl Indusirial. 117, Sanlo Andre; e no Rio de Janeiro: avenida 
McmdeSi, 191/193, Centra. 2. PORCARTA — Poderaosers[>tidtado5exem- 
plaresairasados lambtm por carta, quc devcser cnviada para DINAR — Dis- 
[ribuidora Nadonal de Publkac5es — Numeros Atrasados — Estrada Velha 
deOsasco, 132. Jardim Teresa — CEP 06000 — Osasco — SP Nio enviepa- 
gamenioaniecipado. O alendimento aera feito pelo reembolso postal e o pa- 
gamemo,indumdoasdespesasposiais.deveri&ereretuadoaoseretiraraen- 
comenda na agenda do Correio. 3, POR TELEX — Utilize on? (Oil) 33 670 
DNAP. 

Em Portugal, ospedido.^devem ser fdlosADistrlbuidora Jardim dePublica- 
Coesj Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apariado 57 — Telex 43 069 JARLIS P 

Alenf flo: Apds seis meses do encerramenio da colevao, os pedidos scrao aten- 
didos dependendo da disponibilidade do esloque. 

Ohs.; 0"'i'^d<^P^J''l[vros, mendonesemprelituloe/ou auior da obra, alem 
do numera da edk9ao, 
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Sao Paulo — SP. 









COLABORADORES 


Prqiandor de Tejfla/Coordenador Eliel Silveira CLnha 




cuLTurMt 


EdHor 




4 


VICIDRCIVITA 




Prapartdorei de TexTo: A l^ir^ McreJra Braz, 






ConsuUor Editorial Re«ponuwl: Dr. Renalo U. E. Sabbadoi 


Ana Maria Dilguenan, Lcvon 'lacubian, 






(Diretor dci ^iJi:leo 6e Inbrmalica Biomadicada 


Luciano Tasca, Maiia Teresa GalJuiii. 




]^ 




UoLversidade tst^dual de Campinas} 
Eiecn^ Editorial; DATAQUEST Aiseasoria em 


Maria Teresa Martina Lopes. I^ulo Felipe Merdrone 
ReviAor/Coordcnador; Jo^ Maria de Assis 










InlormalKi Llda., Campinas, SP 


Revidoras: CDDceicSo Aparerida Gabriel. 


REDA^ 


Trad ucao, adapta^ao, prograiaacM e rv4(i^; 
AbihD ralro Nelo, Alutsio J Dornellas de Barrira, 


Isabel Leile de CamargD^ Lfcgia Apaiecida Ricelld, 


Diirlor EdilorialL CornuCbagas 


Mahade Fatjma Cardoso, Nair Lucia de Britto 




Marcelo R. ftres Thereto, Marcos Huascar Velascc^ 


E^teup: Ana^Lase ftlari^ Baiduino F LeJtc. Edson Donato 


Cditwu Executivofl: Anlnnjo Jose FJIIu, 


Raul Neder FbrreUi, Ricardo J. R de Aquino F^reira 




B^ria Sztark Amar 


Coordena^D Geral: Rejane FelJzaiti Sabbatini 




EdUor Chefej Pauln it Almeida 






Editora de Texta: Ana Lticia B de Lucena 


COMERCIAL 


©Marshall Cavendub Lmited 1984/^5. 


CbeEe de Arte: Carlos Uiz fiati sk 


DiF^lor Comercial; Roberto Marlins Silveira 


© Editora Nova Cultural Uda., Sao Paulo. Brasil, 198*. 


AuiitcnIeHde Arte?: Dagmar Basros Sampaio, 


Gerente Comemial: Flavio Maculan 


EdigAour^anizada pela Editora Nova Cultural Ltda. 


Gcdi.? M^m^ Arriida, Monica Lenardon Corradi 


Gerente de Ciirula^: D?tiiie Maria Mozci] 


Av. Bngadeirc haria Lima, n!' 2m - 3P andar 


S^reUnn de Reda^ao/ Coordenadora; itelania Crerna 




CEP0HS2'SaohijlO'SP'Bjflsll 


Sfcretarioa de Reda^iia: Bi'dtrj^ Hagslroni, 


PRODU(A0 


(Afllgo 15 da Lei 5 %&. de H/12/1973t. 


Joie Benfdito de Ufiveira UamiiOn Maria de Lcjurdes Caivalho, 


Gerente de Produ^: Jodo Stungis 


Esta obra foi composia na AM Produ^iks Grahcas Ltda. 


Mvisa Soares d« Andrade. Mauro de Queiro? 


Coardenador de Impr^ssao; Ali'Iio Roberto Bonim 


e impressa na [Xvisfio Grihca da Editora Abfjl SA. 



I 




AIRMAZENA' 
DE P^OGIRAMA! 



-^^ — -.'- 



functonamento do computador desperta 
nossa curiosidade sobretudo quando 
algo nSo vai bem. Sabendo conio os 
programas sSo armazenados, voc§ poderd 
detectar seus erros com mais facilidade< 



O que o computador faz com seu 
programa depois de te-lo digilado? 

Pravavelmente. voce sabe que ele e 
armazenado em um lugar especial da 
membria, reservado para programas em 
BASIC. Tern, porem, ideia de onde fi- 
ca esse lugar e de que mandra as linhas 



ENDERECOI NICIAL 

TRA DU CAO DOS COD I GOS 
PROCURANDO PELAS VARlAVEIS 



VARIAVEIS NUM E RICAS 
CADEIAS 



sao escritas, para que o computador as 
enlenda? 

Na memoria do compuiador. o pro- 
grama se assemelha bastanie k listagem 
que vocS digiiou, e muiios dos numeros 
ali guardados sao c6digos ASCII, repre- 
sentando as letras. Mas a miquina re- 




duz algumas palavras — as palavras- 
chave — e, lamb^m, inlroduz informa- 
C6es extras enire as linhas, para facili- 
lar sua localizagio. 

O computador possui ainda uma ^ea 
onde guarda as vari^veis criadas pelo 
programa, modificando-as sempreque 
necessario, Quando digitamos, por 
exemplo, 10 LET A = 6, a m^quinan^o 
s6 armazena eesa linha como coloca o 
nom^ e o valor da varidvel nela contida 
em ouiro local da mcmoria. 

Vejamos ludo isso um pouco mais de 
peno- Para cometar, digite o pr6ximo 
programa exatamente como csti. No 
Spectrum., nao deixe nenhum espago, 
Nos oulros micros, coloque um espa^o 
apenas ap6s as palavras PRINT e LET. 

10 PRINT "INPUT" 
20 LET A»2 
10 PR [NT A 
40 STOP 



A armazenagem dc um programa em 
BASIC, no MSX, come^a no enderei^o 
32769. Para ler os c6digos armazenados, 
a partir desse endereco. de o segumie co- 
mando direto: 

FOn 1-32769 TO 32808:PBINT PEEK 
(I) [■ ■; :KEXT I 

Obieremos, ent^o, este bloco: 



15 
32 

85 
12B 

65 
128 
65 




126 
34 

6-4 

20 

239 

30 



144 



10 
73 
34 



19 



39 







76 

Q 

136 



145 

129 





145 

ao 

25 
12 
33 
32 

40 



Se vocS considerar esses niimeros co- 
mo cbdigos ASCII etemar reladona-los 
aos caractercs equivalentea, descobrira 
que 56 alguns fazem scniido: 



ses ct!)digos> usualmenle chamados to- 
kens (do ingles: simbolo, indJca<;ao). 

Se, posteriormente, voce liver interes- 
se em obter uma lisia dos tokens, utili- 
ze esle programa: 

10 E-I496Z 

20 C=65 

30 PPTKT CHHS(C) : 

40 A=PEEK(E) 

50 B = PF.EK(E+1) 

60 AS=t:HHS(A) 

70 TF A<l2fl THEN PRINT AS:-fiOTO 

no 

flO PRINT CHRS(A-I2flj ;TAB(a] ;& 

90 E=E+1 

100 TF PEEK(E+1)<>0 THEN PHTNTC 

HRSfC) ; 

110 TF PEEK(E+l.)<>n THEN 150 

C-C+liTF C>-H9 THEN 170 

BS-c:HR$(C) tPRlNT 

IF BS = "J" OH BS="<i'' THEN 15 



1:^0 

175 

,130 



140 

ISO 

160 

170 

IBO 

190 

12B1 : 

200 TF 



PRINT BSi 

E^E + J 

TF E<=l'i649 THEN 40 

E = 15nr>4:PKLNT 

A-PEEKCE) :B-PEEKtE+l) 

IF A>]27 THEN PfUNT CHRS (A- 



A<L28 THEN PRTNT THRS (A) 



210 PRINT TABtfl) iB 

-I2i) E = E + 2:PRTNT 

230 rt ECl5fi73 THEN GOTO IBO 

Interpretando os tokens, nosso blo- 
co Heard assim: 



? 

esp 

U 

7 

A 
? 
A 
? 



T 

7 

? 
? 

STOP 



7 

I 

m 

1 
1 

7 
■? 

7 



7 

N 
? 

LET 
■> 

PRINT esp 
? ? 
' ? 



PRINT 

P 

7 

■> 



Na lerceira, 17^ 27: e 35^ posifoes 
encontra-sea seqiiencia 10, 20, 30e40, 
Esses bytes guardam a parte baixa (L) 
do numero de cada linha e cada byte 
subseqiiente guarda a parte alta (H). Os 
dois bytes anteriores armazenam, do 
mesmo modo, o endere^o da proxima 



7 


7 


7 


? 


7 


linha. 










esp 


•* 


I 


N 


P 












U 


T 


" 


? 


^ 


120L 


120H 


10 





PRIK 


> 


7 


7 


7 


esp 


esp 


" 


I 


N 


P 


A 


7 


7 


7 


7 


u 


T 


fV 


7 


130L 


•> 


7 


7 


7 


cap 


130H 


20 





tEt 


eap 


A 


7 


7 


7 


7 


A 


m 


7 


7 


140L 


7 


7 


7 


7 


> 


140H 


30 





PRINT 


esp 


, 










A 


y 


CimL 


f inH 


40 



Ja se ve parte do programa, Mas on- 
de estSo PRINT, que antecede a pa- 
lavra INPUT, e os demals comandos? 

O MSX usa um artificio para egono- 
mizar memoria: codEfica as paLavras e 
OS caracteres reservados, substituindo- 
os» ao armazenar o programa, per es- 



STOP 7 ? 7 

Para os bytes finals, o valor signi- 
fica rim de linha; dots seguidos indi- 
cam fim de programa. O valor 2, atri- 
buido k vari^vel A, it armazenado no 
23? byte, de uma forma relalivamente 



compiicada, que nao cabe aqui exami- 
nar, Finalmenie, tcmos o diagrama 
compleio de uma linha na RAM: 



120L 120H 10 

cap " I 

U T " 

130H 20 

A - 2 

140R 30 



PRINT 
N P 
finl 130L 
LET BBP 
flDl 140L 
PRINT esp 



tinl f imL f lEaH 40 
STOP f iDl f inpr f iDpr 



VAR1AVEIS NUMERICA5 



Jd sabemos como um programa e co- 
locado na mem6ria do micro. Veremos 
agora como o valor de uma variavel e 
armazenado na RAM. Lembre-se deque 
o MSX possui a funcao VARPTR (do 
ingl§s VARiable PoinTeR), que mos- 
tra o endere^o a panir do qual esid guar- 
dada deierminada variavel. 

Vamos explorar, em primeiro lugar. 
as varidveis num^ricas. 

Use NEW para apagar o programa 
anterior e execute esie: 

in DEFINT A 
20 A-I 

30 V=yARPTB(AJ-2 
40 FOR K-U TO U+3 
50 PBINT PEEK (K) i 
fiO NEXT 



VocS oblerS os seguintes numeros; 



65 



1 



O primeiro e o segundo bytes arma- 
zenam o nome da variavel — por isso, 
s6 as duas primeiras letras dela impor- 
tam. Como se irata de uma variavel do 
tipo inleira, bastam o% dois bytes seguin- 
les para guardar seu valor nas duas di- 
ferentes modalidades (parte baixa, L, e 
parte alta, H). 

Fa^a as seguinles substitui^oes no 
programa e volte a execui4-lo: 

JO DEFSNC; A 

■qf) FOR K-V TO V+6 

Temos eni5o cstes numeros: 



65 



65 16 



Os dois primeiros bytes dao o nome 
^ variavel. Estamos lidando agora com 
uma variavel de precisao simples e, por 
isso, precisaremos dc cinco bytes para 
armazenar seu valor. O primeiro deles 
cuida do expoenie, guardando o resul- 
lado da soma de seu valor com o nume- 
ro 65, para facilitar o manejo de expoen- 
tes negalivos. Os tres bytes restantes 
encarregam-se de guardar o numero 
propriamente dilo. 

Fa?a estas novas substitui^oes e exe- 
cute o programa. 



1(J FOR K-V TO V + 9 

Aparccem na tela os nilmeros: 

65 65 16 

Como vocS pode observar, o nome e 
o expoenre continuam sendo armazena- 
dos da mesma maneira^ mas s^o neces- 
s^ios sete bytes para guardar o nQmero. 



VARIAVEIS STRING 



Para armazenar as varidveis do tipo 
srring, o MSX utiliza irfis bytes, Digiic 
prdximo programa e veja como eles 
sSo aproveiiados. 



in 

-10 



V-VARPTR(An)-;' 
FOR K-V TO V+4 
PHTNT r^Kh:K{K) )" "; 
NEXT 

VocS devc ter oblido os niimcros: 



65 



3 9 126 



Os dois primeiros bytes contem o no- 
me da variavel; o terceiro, seu compri- 
memo; os dois ultimos indicam o ende- 
rei^o no qual da se encontra, ou scja, sua 
posi(^ao exata na parte da RAM que ar- 
niazena o programa. Este e um aniffcio 
que MSX utilba para economizar me- 
moria. Se houver alguma modi ficav^ao 
na linha que contem a variavel (a linha 
lOJ, que impega o computador de usd- 
la, eie colocara seu conteiido em ouiro 
endereto* 



VARIAVtIS INDEXADAS 



Quando voce define uma matriz com 
o comando DlM(n). o MSX reserva, na 
memoria, um cspat;© para n+ 1 varid- 
veis» pois a primeira delas tem indicc 0. 
Execute o proximo programa e veja co- 
mo elas sao armazenadas. 



LS 



in 


DEFTNT A 


20 


DIM A(2) 


30 


A(0)=^'A(l )=10;A(Z)- 


40 


V^VAHPTHCA(O) ) 


50 


FOR K^U TO V+16 


60 


PRTNT P|i:i-K{K) i 


70 


NEXT K 




Voce deve ter obtido: 





2 65 9 





5 10 15 



05 cres primeiros bytes zerados ini- 
cializam a area de armazenamenlo. O 
byte com o numero 2 indica que a va- 
riavel e do tipo inleira — seria 4j para 
vari^veis de precisSo simples, c 8, para 



variaveis de precislLo dupla. Os dqis 
b>tcs seguintes fornecem o nome da va- 
riivcl. O sitimo e o oitavo indicam 
quantas posl^Oes faJtam para o fim des- 
sa drca. O nono byte contina o numero 
de dimensfies, e o dicimo c o 11?, o ta- 
manho dessas dimcnsfles. Em seguida 
vfim OS numcros. armazenados confor- 
me tipo de cada variivel. 

Para as vari^veis indexadas do tipo 
string pouca coisa mudaria. O quarto 
byie, que indica o tipo de variSvei, te- 
ria niimcro 3, e, em vez de guardar um 
valor num^rico, conteria os endercgos 
dos caracteresi como no armazenamen- 
lo de strings comuns. 



No Spectrum, hi dois enderecpos de 
mem6ria que, juntos, nos d£Lo o ende- 
refo a partir do qual estd armazenado 
o programa em BASIC. Acesse-os com 
seguinte comando direto: 

PRINT PEEK 23635+256*PEEK 23636 

Voce obiera como resposta o nume- 
ro 23755, em um Spectrum de 48K- Sc 
vote achou um numero diferente c tem 
certeza de que digJiou o comando cor- 
retameme, subslitua 23755 pelo valor 
enconlrado, no proximo comando. 

FOB 1-23755 TO 23755+40 : PRINT 
PEEK I;' ": :NEXT 

Voce obtera os seguintes niimeros: 






10 


9 





245 


34 


73 


76 


80 


65 


94 


34 


13 





20 


11 





241 


65 


61 


50 


14 








2 








13 





30 


3 





2A5 


65 


13 





40 


2 





226 


13 











Agora, usando os codigos ASCII, 
observe como fica o quadro: 



7 


? 


-> 


? 


7 


■ 


I 


N 


P 


U 


T 


m 


7 


7 


7 


? 


"> 


7 


A 


- 


2 


7 


? 


? 


? 


? 


7 


■> 


? 


7 


T 


? 


7 


A 


? 


? 


7 


7 


7 


? 



VocSj^ pode ver parte do programa, 
mas falta decifrar vdrios codigos. 

Provavelmente o comando PRINT 
esiaria antes de "INPUT", mas o que 
vemos nessa posigao ^ o numero 245. O 
Spectrum usa valores acima de 164 pa- 
ra codificar as palavras reservadas, Se 



vocg consultar a lista delas, no manual, 
vcrd que 245 6 o valor, chamado [oken 
(do ingles; simbolo, indicagSo), para 
PRIM. Consultando a lista de tokens, 
localizaremos os comandos. 



7 


7 


7 


? 


PRINT 


IT 


I 


N 


P 


U 


T 


■1 


7 


? 


7 


7 


? 


LET 


A 


* 


2 


■> 


7 


? 


? 


7 


7 


? 


? 


7 


7 


7 


PBTNT 


A 


? 


7 


7 


7 


? 


STOP 


? 











No segundo, 15?. 30? e 37f bytes, 
encontra-se a seqiiencia 10, 20, 30, 40^ 
Esses bytes s3o usados para guardar a 
parte baixa (L) do numero da linha, as- 
sim como o byte anterior guarda a par- 
te alta (H), Os dois bytes seguintes da 
linha indicam seu tamanho (exclufdos os 
quatTo primeirosl, sendo que, agora, a 
parte baixa aparece primeiro. 

Temos, assim, o seguinte diagrama: 



10 

I 



compL comEiH PRTNT 



N 

? 



compL coDfiH LET 



2 
7 



7 
9 



P 


A 

7 




coTDpL conpH PRINT A 



U 
20 

7 
30 

? 




? 



40 



compL compH STOP 



Vejamos. agora, os bytes finals, O 
valor 13 e usado para indicar fim de li- 
nha (fdl). O numero 14 indica que os 
proximos quatro bytes sao uma forma 
codificada de uma constante numerica 
— no caso, 2. 



10 

I 



compL cowpH PBINT 



N P U 

T " fdl 20 

compL compH LET A 

2 cnum 2 

fdl 30 

cofflpL compH PRINT A fdl 




fdl 



40 



conpL compH STOP 



ARMA2EMAGEM DAS VAHJAVEIS 



Vimos como um programa em BA- 
SIC 6 armazenado. Todas as varilveis 
definidas por ele. porem, sao guardadas 
em uma area separada. Dois endere^^os 

— 23627 e 23628 — com em oiniciodes- 
sa area, e dois oulros — 23641 e 23642 

— apontam para o fim. Para imprimir 
lodo o conteiido da mem6ria, entre es- 
te programa: 

10 FOR A=PEEK 23627+256'PEEK 
2367fl TO PEEK 2364 1 +256-PEEK 



3:164 2 

20 PBINT PEEK 
3D NEXT A 



Ai 



VARIAVEIS NUMERIC AS 



Em primeiro lugar, vamos dcfinir 
uma varidveU acrescentando esta linha 
ao programa anterior. 

1 LET B-150000 

Executando o programa, temos: 



96 

B 



146 



18 124 

— va\or — 



225 



O numero 98 ^ o c6digo para a letra 
B mais 32 — isto moscra ao computa- 
dor que ele esti lidando com uma va- 
riivcl numerica. O valor ISOOOOiarma- 
zenado nos cinco bytes seguintes, na for- 
ma de ponco flutuanle. Os dois ukimos 
bytes, 225 e 0. indicam o fim da Sirea de 
vari^veis. Como eles sempre aparecerao 
na mesma posifao, deixaremos de 
menciona-los nos pr6ximos exemplos. 

As variaveis com nomes longos sao 
armazenadas da mesma maneira, ape- 
sar dos caracteres terem seus c6digos um 
pouco alterados. Tente isto: 

1 LET MABIA-30 

Voce deve ter obiido os niimeros 



173 
H 



97 
A 



114 

R 



105 

I 



22& 
A 



30 
— - volor 







Os primeiros cinco bytes guardam o 
nome MARIA. A primeira letra soma- 
se niimero 96. inditando um longo no- 
me; as do meio, o niimero 32; a ultima 
letra e adicionado 160, indicandoo fim 
do nome. Os liltimos cinco bytes arma- 
zenam o valor numerico. 



VARIAVEIS STRIftJG £ INDEXADAS 



A proxima linha de programa mos- 
ira a maneira como as variaveis do tipo 
siring sao armazenadas: 

1 LET AS-"STRING" 



Voce deve ter obtido: 



65 6 
A 



63 84 82 

S T R 



73 78 71 
I N G 



O nome da variavel, A, vem seguidr 
de dois bytes com a quantidadc de ca- 
racteres armazcnados. Como voce po- 
de nolar, estes caracieres sao represen- 
tados petos cddigos em ASCII. 



Tente agora uma variivcl num^rica 
indexada: 

y DIM FC2) 

2 LET F(.n-ino 

3 LET F (2)-200 

Executando o programa, temos: 

134 13 1 2 100 
r < — volor — J 

0. 200 
* — volor — ) 

O primeiro byte 6 F mais 64, indican- 
do uma vari^vel numirica indexada. Os 
dois pr6ximos bytes, com a parte baixa 
primeiro, indicam o niimero de bytes se- 
guintes — 13. O pr6ximo byte dizo nu- 
mero de dimensOes e os dois seguintes 
mostram o numero de elementos reser- 
vados. S6 eniSo se chega aos dois valo- 
res armazenados, que ocupam cinco 
bytes cada um. 

Veja, finalmente, as variiveis inde- 
xadas do tipo string, Digite estas linhas 
e execute programa. 

1 DIM BS(2.a) 

2 LET BS(1)»"N0VA" 

3 LET BSt2)-"CULTUflAL'' 

Observe como fica o quadro: 

194 21 2 2 8 
B 

78 79 86 65 32 32 32 32 
NOVA 

67 85 76 84 85 82 65 76 

CULTURAL 

O primeiro byte e o codigo de B mais 
128, para variaveis indcxadas do lipo 
string. Os dois proximos mosiram quan- 
tos bytes ainda serao encontrados ale o 
fim da area de variiveis. O byte seguin- 
te guarda o numero de dimensoes — 
neste caso, 2. Outros dois pares de bytes 
conlem, respectivamente, o numero de 
elcmenios e o comprimento maximo de- 
les. Os bytes resiantes guardam os ca- 
racieres, sendo que o codigo 32 (espa- 
qo) compleia o espa^o reservado para 
am elemento. se este for menor que o 
comprimento reservado. 



No TRS-Color, existem dois endere- 
?os que, juntos, indicam o inicio da area 
de programas em BASIC. Esses ende- 
regos S£to 25 e 26 (decimal), 

Digite o seguinte comando: 

PRINT PEEKC253«Z56+PEEKCZ6] 



Se seu computador acabou de ser li- 
gado, a resposta seri 7681. Caso obte- 
nha outro numero. subsiiiua-o no se- 
guinte comando que ir^ cxecutar: 

FOR 1-7681 TO 76814-39: PRINT 
PEEK(I) I :HE3CT I 

Voce deve ter obiido este bloco: 



3D 


15 





10 


135 


32 


34 


73 


78 


80 


65 


84 


34 





30 


2& 





20 


142 


32 


65 


203 


50 





30 


33 





30 


135 


32 


65 





30 


39 





40 


146 












Agora, usando os cidigos ASCII, 
observe como fica o quadro: 



? 


7 


7 


•> 


7 


80P 


■ 


: 


H 


P 


u 


T 


pf 


? 


? 


? 


7 


? 


? 


eap 


A 


? 


z 


? 


? 


? 


? 


? 


7 


esp 


A 


7 


? 


7 


? 


? 


7 


? 


? 


7 



Ja podemos ver uma parte do progra- 
ma em BASIC, mas exisiem ainda mui- 
los ponios de interrogagao. 

Voce poderia esperar que a palavra 
PRINT aparecesse anies de ' JNPl.'T'\ 
DO diagrania. Em vez disso, temos o nii- 
mero 13?. O computador usa valores 
acima de 127 para representar as pala- 
vras reservadas. niimero 135 e o va- 
lor, lambcm chamado token (do ingles: 
simbolo, indicacaoj. para o comando 
PRINT. Com esses valores, voce pode 
lornar o diagrama mais complete. 



7 


7 


? 


7 


PRINT 


esp 


It 


I 


N 


P 


U 


T 


" 


7 


7 


7 


7 


7 


LET 


cap 


A 


- 


2 


? 


■J 


7 


7 


7 


PRINT 


eap 


A 


7 


't 


? 


7 


7 


STOP 


■> 


7 


7 



Se quiser, depois, obter a Usia dos to- 
kens, use este programa: 



10 

20 

30 

cj ) 

40 

30 

45 

50 

60 

70 

BO 

70 

85 

90 



CLEAR lOOOrCLS 

C-43622;F0H K"0 TO 78 

W$(K/39)'*WS(K/39)+CHaS(PEEKC 

C-C+1:IF PEEK(C-l)<i2e THEN 

IF K-52 THEN C-33155 

NEXT 

C-43e02:FOR K-1 TO 34 

FS-FS+CHHS(PEEK(C)) 

C-C+1:IF PEEK(C-1J<128 THEN 

IF K-20 THEN C-33310 
NEXT 




100 PRINT:INPUT" DlGlTE SIHBO 

LO £M HEXADECIMAL' ;TS 

110 TK'-VAL("iH" + TS) 

120 IF TK>65280 THEK TK-TK-652e 

OtGOTO 210 

130 IF TK<U8 OR TK>205 THEN 25 



140 K— 39«(TK>166) :P-1 

150 IF K-TK-128 THEN WS-tf5 (K/39 

) :GOTO ISO 

160 P-P+i^IF ASCmiDS tUS{K/35] . 

P-1, 1) X12B THEN 160 

170 K-K+1:GOTO 150 

180 PRINT:PflIKT " SIMBOLO '';TS: 

190 AS-MID$CWS,P.1) :IF A$<CHRS( 

128) THEN PRINT AS i : P-P+1 :G0TO 

190 

200 PRINT CHRSCASCCAS) AND 127) 

:G0TO 100 

210 K-0:P*1:IF TK<12e OR TK>161 

THEN 250 
220 IF K-'TK-128 THEN WS-FStGOTO 

180 
230 P-P+1:IF ASCCriID3CF$.P-l,I} 
X126 THEN 230 
240 K-K+1:C0T0 220 
250 PRINT" CARACTER ILEGAL " : PR - 
INT: GOTO 100 

Digiiando qualquer loken, o progra- 
ma fornecera a funi^ao ou comando 
eQuivalente. Seusvalores, em hexadeci- 
mal, vao de 80 ate CD, para os coman- 
dos, e de FF80 at^ FFAl para as 
fuHi^oes. 

No quano. 18?, 28? e 36? bytes ha 
esta seqiiencia: 10, 20, 30. 40. Esses 
bytes sao usados para armazenar a par- 
te baixa (L) do niimero da linha, en- 
quanlo o zero atiies deles guarda a par- 
te alia (H). 

Os dois primeiros bytes de cada linha 
sao usados para indicar onde come(;a a 
linha seguinte. Eles podem ser, por 
exempio, 30 e IS. Multiplicando 30 por 
256 ^ pois se traia da parte alta — e 
adicionando 15, temos 7695, numero 
correspondente ao enderego que contem 
o primeiro byte da linha 20. 

Finalmente, sabendo que o valor 
significa fim de linha, podemos comple- 
lar o diagrama: 



prxlH 

eap 

U 

pr;(lL 

A 

prxlL 

A 

40 



prxlL 

IT 

T 




£dl 

STOP 





I 

* 

20 
2 

30 
pr;tlH 

fdl 



10 

N 

fdl 

LET 
fdl 

PRINT 
prxlL 




PRINT 

P 

prxlH 

eap 

prxlH 

esp 







ARMAZENAGEM DAS VARIAVEIS 



Vimos como um programa ^ arma- 
zenado. Por^m, sempre que se define 
uma variavel no programa, ela e colo- 
cada separadamente em duas Areas es- 
peciais, Hidoisenderefos, 27 e 28, que 



indicam o infcJo da Area ulilizada para 
guardar vari^veis simples. Oulros dois 
endere^os, 29 e 30, aponiam para o ini- 
tio da Area de variaveis indexadas. 

As variaveis simples tambem podem 
ser acessadas por meio do comando 
VARPTR, seguido do nome da varJa- 
veL Entao, VARPTR(A) forneccri a 
localizacao do valor da vari^ve! A. Co- 
mo nome dessa varidvel c armazena- 
do imediatamente antes de seu valor, 
usaremos VARPTR(A) - 2. 



VARIAVEIS SIMPLES 



pr6ximo programa imprime os scis 
primeiros bytes da area de variaveis sim- 
ples, mostrando como a variavel A e ar- 
mazenada na inem6ria. 

1 A-1 

10 V-VAflPTRtA)-2 
20 FOR K-V TO V+6 
30 PRINT PEEK(K) i 

40 NEXT: PRINT 

Voce obtera os seguintes niimeros: 

65 129 D D 
A f — volof — * 

A letra A e armazenada primeiro e o 
byte seguinte deixa um espaco reserva- 
do para outra letra- Os cinco bytes res- 
tantes sao o niimero I , na forma de pon- 
to Hutuanie. 



VARIAVEIS DO TlPO STRUNG 



As ^aridveis string sao armazenadas 
de forma muito semelhante. Troque a 
letra A da linha 10 por AAS e substitua 
a linha 1 por; 

1 AA3-"CADEIRA" 

Desta vez, voce terd: 
65 193 7 3Q 10 

A A 

O nome AA e colocado nos dois pri- 
meiros bytes. Adiciona-se ^ segunda le- 
tra valor 128, para indicar que ela c 
uma varidvel string. O numero 7 corres- 
ponde a quantSdade de bytes usados 
(conte-os). O 38 e o 10 sao, respectiva- 
mente, a parte alta e a parte baixa do 
enderego onde a palavra CADEIRA es- 
t^ armazenada. 

Calculando esse endereco. temos 
38*256+ 10, que e igual a 9738. Efeti- 
vamente, esia^alocaliza^aoda palavra 
CADEIRA no programa em BASIC, O 
TRS-Color, desse modo, economiza me- 
m6ria, evitando que a informagao seja 



duplicada. Mas, assim que se allerar a 
linha ou a variavel, esta serd colocada 
em um outro lugar, e o endere^o caicu- 
lado nao sera mais o mesmo. Os zeros 
que cercam os dois niimeros mostram 
sua utilidade quando o compuiador apa- 
ga velhas variaveis e cria outras. 



VARIAVEIS IMDEXADAS 



O prdximo programa ajudard a vas- 
culhar a area de variaveis indexadas, 

10 T-1:K-1:V-PEEK(29)»256+PEEK( 

30) 

20 T-PEEK(V+2)''256+PEE;K(V-i-3) 

30 FOR K-U TO U+T-i 
40 PRINT PEEK{K) ; 
50 NEXT 

Acrescente estas linhas e depois exe- 
cute o programa. 

1 DIM AC0,2) 

2 A(0,0)-10 

3 AIO,2>-20 

Voce obterd os seguintes mimeros: 

6S00 24 203Q1 
A 

132 32 
< valor > ^ valor ^ 

133 32 
i valor ^ 

Como sempre, os dois primeiros 
bytes dao o nome da variavel, e os dois 
ouiros indicam o seu comprimenio. O 
byte seguinte mostra o niimero de di- 
mensoes, 2, e os dois proximos pares, 

mirnero de elemenios, na ordem inver- 
sa — o 03 e o 01 indicam uma matriz 

1 por 3. Depois disso, vem os pr6prios 
valores, na forma de ponio fluiuanie. 
Observe que foi reservado um espat^o 
para o elemento (0,1), embora ele nao 
tenha sido definido. 

Fa^a uma experiencia com as varia- 
veis string indexadas. 

1 DIM A$C2) 

2 A3<0)-'NOVA'' 

2 A3 <2) -"CULTURAL" 

Executando o programa, obiera: 
65 128 22 1 3 4 38 24 

000060 33 410 

O numero 65 corresponde a letra A 
€ 128 indica uma varidvel string. H^ 
dois bytes para o comprimcnto, um pa- 
ra a dimensao e um par dcstinado k 
quantidade de ekmencos. Em seqiiencia. 
encontram-se ires gruposde cinco bytes 
por cadeia- Cada grupo come^a por um 



numero que diz quantos caracleres a va- 
riAvel possui — 4, no caso de NOVA. 
Seguem-sc um zero para guardar uma 
casa» dois byles para o endere^o da va- 
riavel e mais um zero. O mesmo se re- 
peie para todas as variaveis, inclusive as 
que nao foram definidas. Os valores 38 
e 33 poderao ser diferentes se se caio- 
car o programa em uma parte diferenic 
da memoria- 



scEai 



Tamo o Apple como o TK-2000 co- 
mecpam a armazenar os programas em 
BASIC a partir do enderei;o 2048. De- 
pois de digitar o programa inicial» exe- 
cute o seguinte comando para ver como 
eie foi colocado na memoria: 

FOR I'-20't8 TO 2083:PBINT PEEK (I 
) ; - - : : NEXT 

Voce obiera esies mimeros: 






14 


8 


10 





1B6 


34 


73 


78 


80 


85 


84 


34 





23 


8 


20 





170 


65 


208 


50 





30 


8 


3D 





166 


65 





36 


8 


40 





179 














Vejamos se algo faz sentido, se usar- 
mos OS codigos ASCII: 



7 

U 
7 

? 

7 
? 



T 
? 
2 
7 
■> 



7 

? 

7 



? 

H 
7 

? 

7 

A 



? 

P 
7 

A 
? 

? 



Talvez voce esperasse que a pafavra 
PRINT aparecesse antes da paiavra IN- 
PUT. Porem, a fim de economizar me- 
moria, o computador subslitui as pala- 
vras e os caracteres reservados por co- 
digos, denominados tokens <do ingles: 
simbolo. indica«;ao)- Consulte a lista de 
tokens no manual de scu micro e com- 
plete o diagrama. 



'> 7 


7 


7 


7 


PRINT " 


I 


N 


P 


U T 


■• 


7 


? 


-} 7 


7 


LET 


A 


2 


-> 


7 


? 


7 ? 


PRINT 


A 


? 


7 ? 


? 


7 


STOP 


■7 









J a podemos ver uma pane do progra- 
ma, mas ainda ha muitos pontos de in- 
terroga^ao. Se voce der uma olhada no 
quarto. 17?, 26P e 33? bvtes, encomia- 



ra uma sequencia de mimeros — 10, 20, 
30, 40. Esses byles guardam a pane bai- 
xa (L) do niimero de cada linha» c o byte 
seguinte guarda a pane aka (H). Os dois 
bytes anieriores concern o endere<;o on- 
de se inicia a proxima linha. O valor ze- 
ro serve para separar as linhas de 
programa. 



inic 


LZOH 


12aL 


10 





PRINT 


•r 


r 


N 


P 


U 


T 


" 


fdl 


130H 


130L 


20 





LET 


A 


» 


2 


fdl 


140H 


140L 


30 


□ 


PRINT 


A 


fdl 


finiH 


f iraL 


40 





STOP 


£^in 











ARMAZENAGEM DAS VARIAVEIS 



Ja vim OS como os programas sao ar- 
mazenados. Porem, sempre que se de- 
fine uma variavcl, ela e guardada em 
uma parte especial da memoria. O en- 
derego da area de varidveis simples e da- 
do pelos bytes 105 (L) e 106 (Hj. 

Digite esle programa e execule-o pa- 
ra ver como elas sao armazenadas, 

1 LET A=3 

10 'J«PEEK(1051+256*PEEK(106) 

20 FOR T=y TO U+6 

30 PRINT PEEK tl) ; 

40 NEXT I 

Teremos, entao: 
65 130 64 

O niimero 65 e o codigo ASCII para 
a letra A, que corresponde ao nome da 
variavel. O byte seguinte [em a mesma 
finalidade. O terceiro cddigo refere-se 
ao expoenie, e os quatro restantes, fi- 
nalmente, guardam o valor da variavel. 
A armazenagem dos mimeros, um tan- 
to complicada, nao interessa diretamen- 
le aos objelivos desle artigo, e, portan- 
lo, nao ser^ aqui e>:aminada. 

Para uma variavel do tipo string, fa- 
i;a a seguinte subsiitui^ao: 

1 LET ABS="APPLE" 

Execulando o programa. voce obiera: 

65 194 5 11 8 

Os dois primeiros byic.s dao o nome 
da variivel, mas, agora, o valor 128 e 
adicionado ^ segunda letra, para indi- 
car uma varidvel siring, O terceiro byte 
guarda seu comprimento. O par de byles 
seguinies contem o enderei;o a partir do 
qjal ela esta armazenada. Para econo- 
mizar memdria, em vez de escrever no- 
vamente a paiavra APPLE em outro lu- 
gar da membria, o computador guarda 
apenas a posigao que ela ocupa no pro- 
grama em BASIC: as variaveis siring. 



definidas por um comando INPUT, por 
cxemplo. sao guardadas em uma outra 
posigao. 



VARIAVEIS INDEXADAS 



As variaveis Indexadas sao armaze- 
nadas em um outro enderet^o, dado pe- 
los byies 107 e 108, O tiomputador tam- 
bem guarda ai algumas variaveis espe- 
ciais, como as usadas nos lagos 
FOR-.-NKXT. Por isso, pulamos sele 
bytes para chegar k variavel A. 

Execute o programa: 

1 DIM A(2) 

2 A(0)=5-Aa)=10rA(2J=l5 

jn y = PEEK{107j+256*PEEK(108) 

20 FOB T-V+7 TO V'^2fl 

30 PSTN? PFEKiT) : ' " ; 

40 NEXT I 

Voce deve ter obiido a seqiicncia 

65 22 1 3 131 32 U 

132 32 132 112 

Os dois primeiros byles dao o nome 
da variavcL O proximo par diz, na for- 
ma LH, quanios bytes foram necessa- 
rios para o armazenamenio(conie-os). 

quinio deles guarda o numero de di- 
mensoes. A partir desie. na ordem de- 
crescente, seriam escritos os lamanhos 
de cada dimensao; como nos so lemos 
uma, basiam os valores e 3 (note que 
agora a parte alia veio em prJmeiro lu- 
gar). Finalmenle, apareceni os valores, 
cada umocupando cinco byles, como ja 
comeniamos. 

Para examinar a armazenagem das 
variaveis siring indexadas, ^ubsliiua 28 
por 22 na linha 20 e mude as linhas: 

1 DIM BS{2) 

2 B3(l)^"W0yA'" 

3 BS(2) ="CIJLTUPAL" 

Voce deve ler lido esia resposta: 

66 12B 16 1 3 

4 23 8 8 40 8 

Os dois primeiros byies guardam o no- 
me, como para as variaveis string co- 
muns. O par seguime mosira o espapo 
ocupado por essa variavel (novamente, 
conle OS bytes). O quinto b>le guarda 
numero de dJmensdes e os valores 
e 3 indicam, na forma HL, o compri- 
mento da n-esima dimensao (no nosso 
caso, a linica). A partir dai, cada siring 
ocupa ires bytes, sendo que o primeiro 
contem seu comprimento e os dois ou- 
tros, sua posigao no programa em BA- 
SIC. Os ires zeros referem-se a variavel 
B$(0), que nos nao definimos. 
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UMA PLANILHA 
ELETRONICA(I) 



Se voc§ vive cis voltas com uma grande 
quantidade de informapoes num^ricas. 
pe^a socorro ao seu micro - ele, 
sem duvida. se entende melhor 
com nOmeros e contas do que voce. 



iioe 



Um problema que aftige a maioria 
das pessoas e o conirole de suas despe- 
sas. No anigo da pagina 134, apresen- 
lamos um programa bem praiico para 
a organizacao do or<;amenlo, Veremos, 
agora, um metodo desenvolvido a par- 
lir da planiiha de calculo utilizada pe- 
los proHssionais em contabilidade. 

O programa para a planiiha eielroni- 
ca e exfremamente versatile tcndo um 
potencial quase ilimiiado para a mani- 
puia<;ao de informacoes numericas- E 
suas apHcai;ocs nao se restringem a area 
financeira. Para comes:ar, examinare- 
mos Todas as suas possibilidades. Assim, 
depois de digiiar o programa — que se- 
ra dado em ires paries — , voce esiara 
apio a usa-lo ericientcmenie. Inslrusroes 
detalhadas serao fornecidas junto com 
as Iis:agcns. 



QUE E UMA PLANILHA DE CALCULO? 



As planilhas de calculo eleironicas 
valem-se de uma das maiores vanlagens 
do computador — sua capacidade de fa- 
zer calculos muJto rapidainente. Em es- 
sencia, mesmo o maior e mais cample- 
NO dos compuiadores e uma maquina de 
somar, Os compuiadores, na verdade, 
so sabem lidar com numeros — e quem 
ja se avenlurou a Irabalhar com codigo 
de miquina pode confirmar isio. 

Bem ulilizada, uma planiiha elelro- 
nica lorna-JiC uma reiramenta basianie 
poderosa. Sua apUca^au mais freqiien- 
le e na area financeira. mas e possivel 
eslend&'la a qualquer finalidade, Ela 
subsniui o papel. o lapis e a calculado- 
ra. antes usados pelos coniadores para 
prever os lucros de uma emprcsa ou por 
ciemisras invesiigando o crescimenio po- 
pulacionaj. No piano domestico, pode 
ser muito lilil no conirole das despesas 
ou na organiza<;ao dos dados relaciona- 
dos a um hobby. 

A plaaiiha iradicional dos conlado- 
res, empregada para anotar os lucros e 
despesas. e uma folha de papel dividida 
horizomalmente em linhas e verrical- 
mente em colunas. No cabefaJho, em 
geral, anotara-se os meses do ano. de 
maneira que cada goluna corresponde a 
um mes. Ao lado, colocam-se rbtulos 
como receitas e despesas. Para analises 



mats detalhadas induem-se sublitulos, 
como vendas, exporiaipoes, custos ope- 
racionais, custos de maieria-prima etc. 
Cada linha corresponde a um item es- 
pecifico de receita ou despe^a. 

O lituio tmal da pagina e, usualmen- 
te» Lucros/ Perdas e os numeros das co- 
lunas mostram quanto se ganhou ou se 
perdeu a cada mes. Na 13? cohma, 
rcgisira-se o total da receita ou despe- 
sa, no ano, por ^rea especifica. 

O preenchimemo das celuias com os 
niimeros e sempre uma tarefa trabalho- 
sa, quer se recorra ou nao ao auxilio de 
um compuiador. Mas os contadores que 
usam planilhas iradicionais veem-se 
obrigados, alem disso, a fa^er as con- 
tas dos toiais, o que signifiL-a iiomar to- 
dos OS valores de receita, lodos os valo- 
res de despesa e, finalmenie, calcular a 
difcren(;a. 



COMPUTADOR ENTRA EM JOGO 



Em muitos aspectos. a planiiha de 
calculo elctronica c igual a que foi dt^- 
crita ate o momcnio, dividindo-se lam- 
bem em celuias formadas por iinhas e 
colunas. Para se obter celuias de tama- 
nho aceilavel, apenas uma pequena par- 
te da planiiha e exibida na tela, que e 
usada como uma "janela" para moslrar 
uma area parlicular. 

Como na planiiha de papel, pode-se 
colocar qualquer tipo de dado nas celu- 
ias vazias. Elas so adquirem um signil'i' 
cado particular depois de definidas, po- 
dendo cunter titulos, rdtulos, valores 
etc., segundo a necessidade. 

Ale aqui, a planiiha eletronica e lao 
ou ma]s irabathosa que a manual. Sua 
grande vantagcm reside, de faIo» na ma- 
nipulacao dos dados. Atrds dc suas ce- 
luias em branco encontra-se uma oulra 
planiiha, que diz ao compuiador o que 
deve fazcr com as informagoes de cada 
c^lula. Essa segunda planiiha pode ser 
checada e corrigida sempre que for ne- 
cess^irio. 

Para enlender melhor como o sisie- 
ma funciona, vollemos um pouco ao 
nosso conlador (radicional. Suponha- 
mos que ele queira moslrar na primeira 
coluna o cusio de um item; na segunda, 
a porcentagem de imposto a ser paga so- 



bre aquele valor e, na terceira, a soma 

dos valores exibidos nas duas colunas 
anleriores, O computador pode ser pro- 
gramado a fim de execuiar essa tarefa 
em inslanies. Colocando a instru^ao 
adequada em cada c^lula da coluna dois. 
ele multiplicara niimcro da coluna um 
por uma laxa fixa. Uma inslru^ao seme- 
Ihante cm cada uma das celuias da co- 
luna tres fard com que ele calcule a so- 
ma das colunas um e dois. 



projeqOes 



Outro problema do coniador que tra- 
balha com uma planiiha manual e lidar 
com as alleratoes dos dados, em geral 
frequenles. Um aumenlo nos custos de 
mao-de-obra. por exemplo. pode 
obriga-lo a recalcular o total de despe- 
sas e a revisar todos os valores de Lu- 
cres/ Perdas. Seeleesiiver simplesmen- 
te regislrando valores, o problema nao 
sera tao grave. Mas. se seu Irabalho in- 
cluir a proje^ao dados dos para um ano 
ou mais, ele precisara refazer centenas 
dc calculos. 

Execulada manualmenle, a larefa se- 
ra dcmorada, cansaliva e muito vulne- 
ravel a erros, Um computador podera 
complela-la em alguns decimos de se- 
gundo; depois de termos colocado de- 
terminados valores na planiiha, a mu- 
dan[;a de qualquer um provocara o rea- 
justeauiomalicode lodos osoutrosaele 
relacionados. Se, por exemplo* o valor 
correspondenie ao cuslo da ma:eria- 
prima muda. o cusio total do produto 
e reajuslado de acordo, bem como o lu- 
cro final. 

Algumas planilhas sao capazes de fa- 
zer calculos bem mais complexos, 
prestando-se, inclusive, a solugao de 
questoesdoiipo "E se...?'\ queapare- 
cem conslantemenie no mundo dos ne- 
gbcios — e em muiias ouiras areas. Em- 
bora empregadas principalmenEc para 
fins comerciais, elas lem ulilidade em 
qualquer campo. sempre que se lida com 
muiias vari^veis interdependentes. 

Gracas a sua extraordiniria versali- 
Ijdade, as planilhas eleironicas s£to um 
dos tipos mais procurados de programa 
aplicalivo. Muiias delas sao compativcis 
com oulros programas, possibilitando 
composi^oes adequadas a aplicatoes de 
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QUE E UMA PLANILHA 



DE CALCULO? 



ORGANIZE A INFORMAC AO 
FOR QUE USAR UMA PLANILHA 



CALCULOS COM COMPUTADOR 



rOtulos para 



AS LINHAS E CQLUNAS 



COMO PREENCHER 



AS CELULAS 



COMECO DO PROGRAMA 



grande complexidade. Um editor de lex- 
los. um sislema de gerenciamento de 
banco de dados e uma planiiha eletro- 
nica, por exemplo, constiluem um po- 
deroso conjunto de programas. 



UMA PLANILHA TfPICA 



A unidade basica da planiJha e a ce- 
lula. conteiido de cada celula pode ser 
tanlo uma variavel alfanumerica — co- 
mo uma palavra — quanto um numero 



ou uma frirmala. Quando a planiiha e 
carregada na mem6ria do computador, 
as celulas lem um tamanho predeicrmi- 
nado. Em algumas delas, esse defauls 
(como e chamado cm ingles) pode ser 
mudado a quaiquer momenio. 

valor mostrado cm cada celula po- 
de ser um numero all colocado pelo 
usuario ou o resullado de um calculo. 
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O niimero de linhas e colunas varia de 

uma planilha para oulra; as melhores 
possuem 65 colunas e 256 linhas, ou se- 
ja, ] 6640 ceJulas individuais — quanti- 
dade escessiva para um pequeno micro 
manlpular! A planilha de INPUT (em 
24 colunas e de 20 a 30 linhas, depcn- 
dendo do compiitador. 

As celulas sac sempre ideniificadas 
per leiras c niimeros ao longo dos eixos 
X e y. A raaicria das planflhas iisa co- 
lunas ideniificadas por letras: A, B, C, 
-.,, Ze, depois, AA, AB, ... As linhas, 
nesse caso. sao numeradas de 1 em dian- 
re. Este e o metodo usado no nosso 
prog ram a. 

F-xisiem varios comandos disponiveis 
para a entrada de equa^oes, valores, li- 
lulojy, a^sim como para a copia de celu- 
las ou o exame de diferenles partes da 
planilha, Oulros comandos fazem os 
c^culos e pcrmiiem que os dados scjam 
gravados ou carregados para a memo- 
da do computador. Podem-se monlar 
equa^oes com a^ operac^oes elcmentares, 
com porcentagens ou com os tolais de 
linhas ou colunas. No micro Spectrum, 
o moviinenlo dc um cursor pela plani- 
lha faz com que a celula a ser trabalha- 
da apare*;aemdestaque- Osdemaismi- 
crocompuiadorcs usam um sislcma di- 
ferente; cada celula eespecificadae lem 
seu conteiido exibido no rodape da [ela 
antes de ser Iransferido para a posigao 
definitiva na planilha. 



PLANEJAMENTO E DE5ENH0 



A primcira fasc de preparat^ao dc 
uma planilha e a mais dificil, requer de- 
talhado planejamenio e nao cnvolve o 
uso do computador. Antes de mais na- 
da. e necessario estabelecer cxalamente 
que se quer, pois isso afeta o desenho 
da planilha, Em aeguida, devc-se dcdi- 
car o maximo de atcncao ao planeja- 
menio, para se obter uma planilha que 
mosue as tnforma<;6cs de maneira cla- 
ra e concisa. Como muitas coisas em 
computagao, esse insirumenlo sera lao 
bom quamo for scu plancjamento. Sc 
voce nao tiver cuicJado nessa fase, pro- 
vavelmente obter^ uma planilha confu- 
sa» dificil dc Icr c ate com crros nas for- 
mulas dos c^lciUos. 

Um exempio prdtico: suponhamos 
que voce qucira dcsenhar uma planilha 
para conirolar as financas domesticas 
durante o ano. E evidente que os doze 
mescs deverao encabe^ar as colunas. 
Mas decidir o titulo de cada linha sera 
um pouco mais dificil. 

Primeiro: qual o nivcl de detalhe pre- 
iendido?*Aluguel, transporte, assisien- 
cia medica* alimentai^ao sao titulos 6b- 



vios quando se fala de orcamcnio do- 
meslico- Mas voce quer discriminar os 
gastos com combustivel, criando uma 
categoria independenlc? Ou prefere reu- 
nir todos os gastos relacionados a trans- 
porte — alem de combustivel, manuten- 
i;^o do carro, taxas etc. — em uma ca- 
tegoria unica? Tudo depende de seus in- 
teresses e necessidades. 

Uma planilha podc ser' parlicular- 
menie liiil para manter o valor de seus 
bensa^ualizado, fornecendo,ainda, in- 
formatocs como as porcentagens dc va- 
brizacao de sua casa ou da depreciagao 
do seu carro. 

Calcular a valorizat^ao anual dc sua 
casa parece muito simples, inicialmen- 
le. Um anodepois decompra-la, seu va- 
lor sera o prc^o dc compra mulliplica- 
da pela porcentagem de valori^atao — 
P*X%, ondc X corresponde ^ porcen- 
tagem mai^ lOO. Por exempio, X scria 
]QO-\-5^^o para uma valoriza^ao anual de 
5%. A formula para calcular o valor ao 
fim do segtindo ano seria P*X"?ft*X%. 
Anos ano, a formula fica maior e mais 
dificil dc ser calculada. 

Com uma planilha, o trabalho fica 
bem mais f^cil, e nao e precise ser um 
matemaiico. conhecedor de diizias de 
formulas c equa^oes, para usar todo seu 
potencial, Num caso como o da valori- 
za(;ao da casa, pode-se usar o enderego 
de uma celula para se rcfcrir ao conteu- 
do de!a. Assim, a formula nunca fica 
mais complicada que P*X%, onde P e 
o contcudo da celula anterior. A formu- 



la a ser escrita na planilha leria esta con- 
figuracao: B10"7ol05^o. 

Se a fbrmula foi posta na celula CIO, 
o resultadc e mosirado nessc locah 
ColocandO'Se a formula 00*1059^0 em 
D10, por exempio, o computador toma 
o valor colocado em CIO c o multiplica 
por 105*^0. 

A apresentai^ao da formula varia de 
uma planilha para outra c os programas 
deste ar[igo usam um melodo bem di- 
ferente dos habiiuais. Os deialhes serao 
cxplicados nas instrugocs sobre uso do 
programa, dadas mai.s tarde. 

A utiliza^ao do enderego da celula em 
vez dc seu conteudo simplifica o traba- 
lho com a planilha. permitindo que 
qualcjuer um, com um pouco de bom 
senso c pacicncia, realise (arcfas bastan- 
te complicadas. No entanio, prccisamos 
ter cuidado ao fazer rcferencia a uma ce- 
lula em outra. Nao devcnios, por exem- 
pio, usar a celula BIO em uma formula 
CIO, se rcsuhado de BIO depende do 
valor assumido por CIO. O micro nao 
pode calcular o valor de uma scm tcr re- 
solvido a outra! Se a planilha nao de- 
teclar esse problcma, o programs apre- 
seniara erro quando o computador ten- 
tar resolver o paradoxo. 



E se as taxas de juros subirem 15*^0 
no mes de junho? E se comprarmo?; um 
carro maior? E se instalarmos um aque- 
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cedor central? Uiilizando sua planilha> 
voce podera obier resposta para lodas 
cssas pergunias. 

Observe que a ultima delas aponia 
para outra arean que tiao a financeira, 
na qual as planilhas sao uleis, A dife- 
ren(;a en[re sistemas de aqueciinenEo 
central com lipos de combuslivel diver- 
sos pode ser visuali;ada num relance. 
Esiiiiiar a perda de ealor quu sc cviia 
com o uso de dupla i.solacao permite 
tambem prever quanlo vamos economi- 
zar e quaino tempo levaremos para re- 
cuperar o inve.stimento. 



OUTROS USOS 



Embora, geralmenie. mesmo as pla- 
nilhas mais simples sejam usadas para 
aplicai^oes serias e comp!icadaii, elas se 
presiam muito bem para o lazer. Varios 
modelos direrenles dos financeiros po- 



dem ser constrddos. So para diveni- 
menlo. crie uma referenda circular com 
as celulas que nao lem Hm. 

Existem enormes variacoes de uma 
planifha para oulra. Como regra geral. 
quanio mais poderosa. mais cara e a pla- 
nilha e maior o micro necessdrio para 
sua utili^agao- Uma planiiha dimples 
tern uma meia diizia de comandos e mais 
ou menus o mesmo nijmern dc funydes. 
Compare Isso aos vinie comandos e qua- 
renta fun{;oes das grandes planilbaSn As 
mais soHsticadas permilem, inclusive, a 
inirodugao de deL:lara4;6efi com fungoes 
similarcs a comandos em BASIC — per 
exemplo. 1F„.THEN, AND, OR c 




NOT. Em oucras paJavras, 6 possivel 
programar as planilhas. 



DIGITE PROGRAMA 



O programa da planiiha eletronica e 
bastante longo e» por isso. esta dividi- 
do em Ires partes. Digite as linhas que 
se seguem e grave-a^ para depois adJcio- 
nar as resianies. 

O programa nao funciona nesle ni- 
vel. As instrufoes decomo usa-lo serao 
dadas nas proximas duas partes. 



5 BOPDER Qr PAPER 0: INK 7: 
CLS 
10 DJM bS(ll) : DIM 33(8): DIM 
dSO0,2A,18}: 1>TM v(4) : DIM 

2D GOSUB 1730: POKE 23658. B: 
LET t5 = ''yAL': LET Ofl=0: LET 
Hflag^O: LET wx-1 : LET VY'l : 
LET cx-1 : LET cy-1 
30 CLS : PRINT " 

" : FOR X=4 TO 
3? STEP 9: FOR y-Z TO 21 STEP 

2: PRINT AT Y.k:"" = NEXT Y' 
NEXT x: FOft y=J TO 21 STEP 2: 

PRINT AT y.O:"" t NEXT y 
40 FOB X=0 TO Zi PRINT AT 0.9 
"jt+OiCHRS fwjt+x+64) ; NEXT X 
50 FOB x-O TO 9- PRINT AT fK+ 
l)*2.li {' " AND *iry*x<10j ; wy+x 
'. NEXT X 

fiO PRINT AT 0.0:t5:" "^ FOB y 
= 13 TO <>■ FOB Jt^O TO 2: GOSUB 
1230- NEXT x: NEXT yi PRINT 
1 1 i AT 0,0;" 

70 PHINT AT cy*2, ((CX-l)*9)+5 

: BRtflHT \: FLASK 8; PAPER R; 

INK 8: OVER I ;- " 
fid TF TNKEVS-"'- AND wy>l 
THEN LFT wy-wy-JO: C10T0 40 
90 TF INKEYS = ^'&'' AND uy<20 
THEN LET wy^wy + iO' C.tyTO 40 
100 ir INKE¥S"-"C AMD wx<2l 
THEN L£:T WX=UfX+3: fiiJTO 40 
1 U) IF INKFYS'"!" AND tfX>l 
THEN LET ux=wx-3i GOTO 40 
120 PRINT AT CY«2, (tcx-l)*9)+5 
: FLASH 3; BRICBT Oi INK B; 
PAPER fl; OVER X ; - " 
130 LET c:y=cy+tlNKEyS = "6" AND 
cy<lO}- (INKEYS-"'?" AND cy>l) : 
LET rx=cK+(lNKEYS="R" AND cx<2 
J - ITNKEYS = "^" AND CX>1) 
140 IF INKEYS="i" OH JrtKEYS^"! 
" THEN GOSUB 1 Z50 
IfiO IF lNKEYS^"v'' OR TNKEY5 = "V 
" THEN LET t3="UAL-' OOTO 60 
160 TF INK£Y5='e- OR INKEYS-'E 
" THEN LET tfi-'lGUAL'* ■ GOTO 6 


170 IF 
AT 0.0 



TNKEYS^"?' THEN PRINT 
FLASH 1:''CALC": GOSUB 
810: GOTO 60 
IBO IF iNKEyS*''^'" OE INKET3'"2 
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" THEN PRINT XT 0,0; FLASH 1; 
■COPIA-: GOSUB 230: GOTO 60 

190 IF JNKEyg-'P" OR IKKEyS-"P 

■ THEN copy 

200 IF INKEYS-'NOT ' THEN 

GOSUB 1780- GOTO 30 

2L0 TF INKEyS-'-* THEN GOSUB 

1840; GOTO 30 

220 GOTO 70 

230 PRINT #l!AT 0.0:"CELULA A 

COPTAR 1" : LET d=]: LET r=3! 

LET »-lBr GOSUB SflO : GOSUB 570 

: IF f THEN SOUND .2,30: GOTO 

230 
240 PRINT *l:AT 0<0;"ABS ou RE 
L (A ou nj ?* ^ LET x^32t LET d- 
2: LET c-1: GOSUB 580: GOSUB 
670; IF f THEN 510UND .2,30: 
GOTO 24 

250 PRINT HiAT 0,0;"COL ou LI 
NHA (C ou L)?-: LET x="22: LET 
d = 3: LET i:^l : GOSUB 5S0 : GOaUB 

670t IF f THEN SOUND .2,30: 
GOTO 250 

260 PRINT »I;AT . ; "DA CELULA 
No. ?" : LET X=I6: LET t1=4: LET 
c*3: GOSUB 580: GOSUB 670: IF 
f THEN SOUND .2.30: GOTO 260 
270 PRINT #1;AT O.Oi-PARA A CE 
LULA No. ?": LET k=L4: LET d-5 



■ LET r-3t GOSUB 580: (SOSUB 
670: IF f THEN SOUND ,2.30: 
GOTO 270 
280 GOSUB 770: IF NOT f THEN 

GOTO 320 

290 PRINT IliAT , : "COrtANDO E 
RRADO - PBESaiONE A PARA AB 
ORTAB OU QUALQUER OUTRA TECLA 

PAHA HE-ENTHAB" 
300 PAUSE 10: PAUSE 0: PRINT i 
1 : AT 0,0;" 



" : IF 
THEN 



INKEY5=" 

RETURN 



OR INKEYS = ''A- 
310 GOTO 230 

320 LET 3=(C0DE iS{KZ))-64: 
LET b=VAL zS (1 . 3 TO (VAL 75(1. 
D + U); LET aS=(dSlb,a.9 TO 16 
} AND tS-"IGUAL''J + {d3(b.a. TO 
fil AND T.S-"VAL"): LET c3 = d5(b, 
a, 17): LET z^CODE dS(b.a.l8) 
330 IF z3(2.2)="R" THEN GOTO 

390 
340 FOP ii = ft^ TO tc: FOE b=fr 

TO rr 

tS'-IGUAL" THEN LET dS 
TO 16)-bS: let <13(b,fl» 



370 NEXT h 
380 RETURN 
390 LET bS 
GOSUB 890: 
-64) - [CODE 
VAL 2${A.,3 
-UAL iS(U 
) 

400 LET v( 
)=v{4)-Cfb 
410 LET v( 
(3)<>261 - 
412 TF iS i 
(1)-V(11+1 

)<:>26) 

414 IF Z$( 
(2)=V(2)'^l 
)<>26) 



: NEXT A 

^dS(b,a.9 TO 16) : 
lET a=tc:ODF; 7,S(4.2) 
2SCK2J-64) : LET b=- 
TO (VAL z5(4a)+l)) 

3 TO tVAL iSClp ])+!) 

2)-v{2>+b-l : LET v (4 
-J) AND v(3)<>26) 
3)-v(3) + < U-1 > AND V 
LET v{l)=v(l)+a-l 
3.2)-"C" THEN LET v 
: LET vC3)=v(3)+tv(3 



3 
4 
D 

5 

6 
7 

+ 
R 

e 



3.2)- 

: LET 



■R" THEN LET V 
V(fl) =V{4^ + (vC4 



Q 



10 PMODE OaiPCLEAR liCLEAB 100 

O0:CLS:PaiNT ^230 .'PLANILHA ELE 

TRONICA" 

20 CS-1;RS-1:CE-1:CC-1:MOS(OJ-- 

VALOR {CALO ■ TMOStlJ-'EQUACAO 




r 



\h4 APUCACOES 24 



30 DIM DSf26,30) ,Dt26.30) 

40 FOR I-l TO 26:FOR J-1 TO 30: 

D3(I,J)*CHB3(12e) :NEXT J, I 

50 CX-4;BX-1 

60 GOSDB 70:GOTO 170 

70 PRINT e448,*ESP£BE' :PB1NT §0 

,STBINGS{3.128) I :FOR I-CS TO C3 

+3:PR1NT CHBSC123) ;CHB3(1Z8) iCH 

R3(128) ;CHftS(96+I) ;CHHS(128) j CH 

R3{12B) iCHRS (12S> i :NEXT:PRINT C 

HBS{12B) : 

80 PRINT e480,"MODO^ '':M03<M0J: 

90 FOR r-0 TO li;Cl-INT<(ftS+I)/ 

10J+48:C2-(aS+I)'(<Cl-48l*10)+4 

e:POKE 1024+32*1+32, C1:P0KE 102 

4+32*1+33. C2:PRIKT €32*1+34, "" : 

NEXT 

100 PRINT #416: IF MO-0 THEN GOS 

UB 740;GOT0 130 

110 FOR J-fiS TO RS+llFOH I-CS 

TO CS+J 

120 PRINT e(J-RS)*32+35+(I-CS)* 

7,'*;:GOSUB 660 : NEXT I.J 

130 PRINT €480."MODO: ";M0S(MO> 

; TAB (20) i"CEHJLA: " ;CHES(64+CC) 



;MIDS(STR${CB>,2) ;" " ; 
140 PRINT #448, "PRONTO" 

150 PRINT #45B,MIDS(D5(CC.CR1,2 

) 

160 RETURN 

170 PS-(CR-RS+l)*32+(CC-CS)*7+3 
+1024 :Z-PEEK(PS) :POKE PS, 191 AN 
D Z 

180 IS-INKEYS:IF 13-"" THEN 160 
190 POKE PS.Z 

200 IP I3-CHB3Ce) AND COl THEN 
CC-CC-1:IF CC<CS THEM CS-CS-1 : 
GOSUB 70 

210 IF IS-CHH3C9) AND CC<26 THE 
N CC=CC+lrIF COCS+3 THEN CS-CS 
+1:G0SUB 70 

220 IF I5-CHRS(10) AND CRC30 TH 
EN CR-CR+1:IF CR>RS+11 THEN RS- 
RS+1:G0SUB 70 

230 IF I$-CHRSt94) AND CB>i THE 
N CR=CE-1:IF CB<RS THEN R3-RS-1 
:GOSUB 70 

240 IF I3-'G" THEN GOSUB 330 
250 IF I$--Q'' THEN CL3:lNPUT"CO 
NFIRMA QUEREB SAIR (S/N) ?'';AS: 
IF AS<>"S" THEN GOSUB 70 ELSE C 



LS:END 

26C IF IS' 

270 IF IS- 



280 IF IS-^C GOSUB 1490 



•I" GOSUS 410 

■V THEM M0-0:GOSLrB 



IF IS-'E" THEM M0-1;G0SUB 7 




290 



300 IF I5-"S'' GOSUB 1230 

310 IF 1S-"L- GOSUB 1350 

320 GOSUB 130:GOTO 170 

330 PRINT ^44fl:PHlNT §44B.''PARA 

A CELULA -'>";:LIHE INPUT AS 
340 IF AS-"" THEN RETURN 
350 C1''ASC(A3)-64;1F CKl OR CI 
>26 THEN 330 

360 C2-UAL[MIDS(AS»2)) :IF C2<1 
OH C2>30 THEN 330 
370 CC-C1:CS-C1:CR-C2:RS-C2 
380 IF CS>23 THEN CS-23 
390 IF flS>l9 THEN BS-19 
400 GOSUB 70:RETURN 
410 PRINT #448. "NOVO CONTEUDO : 
": :LIN£ INPUT AS 

420 IF AS-"" THEN A3*CHR3(128)t 
GOTO 610 

430 IF LEN(AS)>9 THEN PRINT #44 
B.'-ENTRADA INVALIDA' : SOUND 1,4: 
GOTO 410 

440 IF VAL(A3)<>0 THEM 560 
450 BS-LEFT3tAS.l) :IF BS<''A'" OB 

BS>"Z'' THEN 600 
460 CS-MIDS(A3.2.2) 
470 IF VAL(CS}<ii OR VAL(C5) >30 
THEN 600 

460 IF VALCC3X10 THEM AS-B5 + ST 
RS(VAL(CS))+M1DS(AS,3) 
490 D3-MIDS (A3.4. 1) : IF DS<"A- O 
R DS>"Z" THEN 600 
500 E3-MIDS(AS.5) 
510 IF VAL(ES)<1 OR VAL(ESJ>30 
THEN 600 

520 IF VAL(ES)<10 THEN AS-LEFTS 
CA3»4)+STRS(VALCE3) )+rtIDS(AS,6) 
530 0S-MIDS(AS,7,1) :1F IKSTRd, 
OP3-O3)=0 OR OS-"" THEN 600 
540 DP=UAHRlGHT3(AS,in : IF 0P< 
OH DP>7 THEN 600 

550 PRINT e448. "ENTRADA E UMA e 
quacao':Aa=CHR3tl31)+AS:GOTO 61 


560 PRINT €448. "ENTRADA E UM va 
lor- 

570 IF RIGHTS(AS.l)-'" " THEN AS 
-LtFTSCA3,LEN(AS)-maOTO 570 



L 
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560 IF LEN(AS)<7 THEN A$> 
:GOTO 580 

590 AS-CHBS(1291+AS:GOTO 610 
600 PBINT e44e.TNTRADA E WA 1 
eg«ndfl' : AS-CHR3 < 1 30) +AS 
6X0 D$(CC,CR)-AS:I"CC:J-CR:PRIK 

T «(J-flS>«32 + 35+{I-CS}*7,"''; :G0 

SUB 660:SOUKD a90,2:FOR D-1 TO 

500:NCXT 

620 IF COCX THEW CX=-CC 

630 IF CH>ftX THEN RX-CR 

640 IF MO-0 THEN M0-1:G0SUB 

650 RETURN 



+AS 260 



IF I3--I" 
270 IF I$--V 

280 IF IS-'C" 



290 


300 



IF IS-'E" 



70 



^ 



10 KEYOFF:CLEAB1€OOO^COLOR15,4, 
4 ^SCREEN0:CLStLOCATE 9,ll:PRINT 
■PLANILBA ELETRONICA' 
20 CS = 1:BS'1:CR-1;CC=1:M03(0)-'" 
VALOR tCALCJ" : MOS ( 1 J -"EQUACAO 

" L«0»I:OPS""+-*/lSL" 
30 DIM DS(26,30) ,D(26,301 
40 FOR 1=1 TO 26:F0B J=l TO 30: 
D3(I,J)-CHHS{12B) :NEXTJ,I 
50 CXM-BX-; 
60 GOSUB 70:GOTO 170 
70 CLS:LOCATE . 20 : PRINT" AGUAHD 
E. , -" :LOCATE0,0: PRINTSTRINGS ( 3 , 
219);:F0R 1=CS TO CS+4 ■ PRINTCHR 
St9l) iSPC(2) :CHR5(64+I) ;SPC(2) ; 
CHR3t93) : :NEXT:PRINTCHH3(219J i 
80 LOCATE 0,21 :PRINT'"MODO: " ; MO 
$(M0) 

90 FOR 1=0 TO 15-C1=INT((RS+1)/ 
10)+4e;C2=CRS+T} - ( CC1-48J *10) +4 
8:L0CATE . I+l : PRINTCHR5 (CI) : CH 
RStC2) :NEXT 

100 LOCATE 19,0-IF MO^^O THEN GO 
SUB 740:GOTO 130 
IJO FOR J-BS TO BS+15:F0R I=C3 
TO CS+4 

120 LOCATE <I-CS)*7+3. J-HS+1:G0 
SUB 660-NEXT I, J 

130 LOCATE 0,21^PHINT'*M0DO: " ;M 
OS (MO) ;TAB(201'CEL: ' jCHBSC64+C 

C) :MID5(STRS(CH) ,2) ;" "; 
140 LOCATE 0.20- PBINT^PBONTO! 

":TABCI5)MIDS[DS(CC,CB) , 2 ) ; SPC 
{91 

160 RETURN 

170 PS=(CR-B3+l)*^0+CCC-CS)*7+4 
:2-VPEEKCPS) :VPOKE PS, 219 
180 IS=INKE¥S:IF 13='" THEN 180 
190 UPOKE PS,Z 

200 IF T3='CHRS{29J AND COl THE 
N CC = CC-1-I-F CC<C3 THEN C3-CS-1 
: GOSUB 70 

210 IF IS^CHR3128) AND CC<26 TH 
EN CC=CC+1:IF COCS+4 THEN C3-C 
S+1:G0SUB 70 

220 IF IS-CHRSC31) AND CH<30 TH 
EN CH=CH+1:IF Ca>RS+15 THEN RS- 
RS+1 :GOSUB 70 

230 IF IS=CHR3(3a) AND CR>] THE 
N CR-CR-l:IF CB<BS THEN RS-R3-1 
: GOSUB 70 

240 IF TS = '"G' THEN GOSUB 330 
250 IF I$="0" THEN CLS:INPUT"TE 
RMINO PROGRAMA? (3/N) ";AS:IF 

A30-S" THEN GOSUB 70 EL3ECLS ■ 

END 



IF IS-"S" 
310 IF iS-'-L" 
320 GOSUB 130 
330 LOCATE 0. 
CATE O.ZO^PRt 
PUT AS 
340 IF AS-"" 
350 C1-ASC(AS 
>26 THEN 330 
360 C2-UAL(MI 
OH C2>26 THEN 
370 CC-C] \CS' 



THEN GOSUB 410 
THEN MO-0; GOSUB 7 

THEN GOSUB 1490 
THEN HO'l:GOSUfi 7 

THEN GOSUB 1230 

THEN GOSUB 1350 
rGOTO 170 

20:PRINTSPC(38) : LO 
NT"PABA CEL >' ; t IN 

THEN RETURN 

)-64: IF CKl OH CI 

D$(A3,2)) :IF C2<1 

330 
C1:CR-C2:BS-C2 



380 IF CS>23 THEN CS-23 

390 IF RS>19 THEN RS^19 

400 GOSUB 70: RETURN 

410 LOCATE 0,20:PRINT"NOW CONT 

EODO: ";SPCC22) r :LOCATE i5:LTNE 

INPUT AS 

420 IF AS-"" THEN AS-CHHS (128) : 

GOTO 610 

430 IF LEN(A3)>9 THEN LOCATE 0, 

20:PRINT"ENTHADA INVALIDA 
"iFOH I'l TO 500;NEXT:GOT0 410 

440 IF VAL(A3)<>0 THEN 560 

450 B5-LEFT5CAS. U tiF BS<"A- OH 
B5>"2" THEN 600 

460 CS-MIDS(AS,2.2) 

470 IF VAL(C3)<1 OR VAL CC3) >30 

THEN 600 

480 IF VAL(CS)<10 THEN A3-BS+ST 

RS(VALCCS))+MID3(A5,3) 

490 DS-MTDS(A3,4a) :IF DS<"A- 

R D3>"Z" THEN 600 

500 ES-M1DS(A3.S) 

510 IF VALtESXl OR VALCE3)>30 
ItHEN 600 
1520 IF UALCESXIO THEN AS-LEFT3 

(AS.4)+STBS(VAL(ES))+MID3CA3.6) 
J530 0S"MIDS(AS.7.1) :1F INSTHd. 

0P3-O5)-0 OR OS-"" THEN 600 

540 DP-UAL{BTGHTS(A3.1>) :IF DP< 

OH DP>7 THEN 600 
1550 LOCATE 0.20:PRINT"A entradtt 
4 vima EQUACA0":A$-CHRS(131)+A$ 
:COTO 610 
|560 LOCATE 0,20:PHINT"A entrada 
e urn VALOR" 




RiitvaBanmai 



24 APUCACOES 24 



570 IF BIGHTS IAS, 1)-" " THEM A3 
-LEFTS(AS.LEN(AS)-1) ^OOTO 570 
580 IF LEN(AS)<? THEN A5-" "+A3 
tGOTO 580 

590 AS-CHRSCi29)+AS:GOT0 610 
600 LOCATE 0*20rPniNT"A entrada 

i urn fidTULO":A5-CHH3(130)+A3 
610 D5(CC,Ca)-A9:I'=CC: J=CR:LOCA 
TE (I-C9)"7+3. (J-RS)+I:GOSUB 66 


620 IF COCX THEN CX-CC 
630 IF CR>RX THEN RX-CR 
640 IF MO-0 THEN MC'lrGOSUfl 70 
650 RETURN 



[£ 



10 TEXT : HOME : CLEAR : VTAB 
12: HTAB 10: PRINT "PLaNTLHA EL 
ETBONICA" 

20 CS - 1:RS - 1:CR - 1;CC - 1: 
CA - 1:RA - J. :MOS(0) - "VALOR CC 
ALC)":M0S(1) • "EQUACAO "iM 
O * 1:0PS - ■• + -*/lSf:DS - CHR 
S <13) ♦ CHRS (4, 
25 ONERR GOTO 2500 
30 DIM DS(26.30) ,D(26.30) 
40 FOR I - I TO 26: FOR J ^ 1 
TO 30:DS(I,J> - CHBS (12fi): NE 
XT : NEXT 

50 CX =- 4^RX - 1: FOP t > 1 TO 
IO:LLS = LLS + CHR3 <25bl ; NEX 
T 

60 GOSUB 70 r GOTO 1 70 
70 HOME : VTAB 21 : PRTNT "AGUA 
RDE^^.V VTAB L: PRINT LEFT3 ( 
LIL3,-1);: FOR T = CS TO CS + 4: 
PRINT CHRS (<J1J: SPC( I): CHRS 
(64 + r) : SPC( 2) I CHRS (93) \ : 

NEXT : PBJNT LEFTS (LLS. 2) 
90 V1AR 22! PHTNT "MODOr "jMOS 
(WO) ; 
■30 INVERSE ■ HTAB 1 : fOH 1 ^ 

TO I5:C:J " TNT C (R3 +- 1) / 10 

) + 46:C2 - CfiS + J) - ( (CJ - 4 
fl) * 10) + 48: VTAB I ^- ^t PRIN 
T CHRS (CI):. CHRS (C2) : NEXT : 

NORMAL 
100 VTAB 19: IF MO - THEN G 
03UB 740: GOTO 130 
no FOB J - RS TO RS -^ 15: FOR 

I - CS TO CS + 4 
120 VTAB J - RS + 2: HTAB tT - 

CS) * 7 + 4: GOSUB 660: NEXT : 

NEXT 
130 VTAB 22r HTAB Ir PRINT "MO 
DO: ■;MOS(M0)i TAB < 20);"CEL: " 
: CHB3 (64 + CO ;CH;- ' 
140 VTAB 21: HTAB 1: CALL - 8 
68: PRINT 'PRONTOi*! TAB C 15) jD 
9(CC.CB) 
160 RETURN 

170 V - CH - FS + 2:H - (CC - C 
3) • 7 + 1:VA - RA - RS + 2:HA 

- (CA - CS) * 7 + 4 

ISO VTAB VA: HTAB HA:I ^ CA:J 

- PA:. GOSUB 660 

182 VTAB V: HTAB H: INVERSE -I 

- CCiJ • CR: GOSUB 660 
163 PRINT : NORHAL 
185 CA - CC;RA - CR 
190 GET 1$ 




200 IF 13 - CHRS (8) AND CC > 
1 THEN CC - CC - 1: IF CC < CS 

THEN CS - CS - 1: GOSUB 70 



210 

< 26 

CS + 

70 
220 

< 30 
HS + 

70 

230 



IF IS - CHRS "(21) AND CC 
THEN CC - CC + 1: IF CC > 
4 THEN CS - CS + 1: GOSUB 

IF IS ■ CHRS (90) AND CR 
THEN CR * CR + 1: IF CR > 
15 THEN RS - RS + I ; GOSUB 



IF IS 

^ 1 THEN CR 
S THEN RS ' 



CHRS (65) AND CR 



240 


250 

00 

260 



270 

OSUQ 

280 

90 

290 

OSUH 

300 

30 

310 



320 

330 

58: 

AS 

340 

360 

< 1 

360 

F C2 



- CR 
RS - 
IF IS •* "G" 



- 1 : IF CR < 

1: GOSUB 70 
THEN GOSUB 



33 



IF IS = "Q" THEN GOSUB 30 



IF IS - "1" THEN GOSUB 41 



IF 
70 
IF 

IF 
70 
IF 



IS ' "U" THEN MO 



15 - "C THEN GOSUB 14 



15 ■ "E" THEN MO - 1: 



IS = "S" THEN GOSUB L2 



IF IS " "L" THEN GOTO 135 

GOSUB 130: GOTO 170 
VTAB 21 t HTAB li CALL - 9 
PRINT "PARA CEL >" i : INPUT 



IF AS - ■"■ THEN RETURN 

CI = ASC (AS) - 64: IF Cl 

OR Cl > 26 THEN 330 

C2 - VAL ( MtDS (A$.2)) : I 
< 1 OR C2 > 30 THEN 330 
370 CC = C1:CS - C1:CA - Cl : CR 
- C2:RS - C2:RA - CR 
380 IF CS > 23 THEN C3 * 23 
390 IF RS > 19 THEN RS - 19 
400 GOSUB 70: RETURN 
410 VTAB 21 r HTAB 1: CALL - 9 
58: PRINT "NOVO CONTEUDO: ";: 1 
NPUT A3 



420 IF AS " 

(128) ; GOTO 

430 IF LEN 



A3 



CHRS 



"" THEN 
610 

(AS) > 9 THEN VTA 



Co mo as p I anil has 
fradicionais dos 
coniadores, nossa 
planHha de cdlculo 
eielronJca lambem 
t^sla divjdjda em 
celula^ formadU!^ 
por C4>luna%, que 
correspond em aos 
meses do ano. e 
linhus, equivalentes 
a rofuhis diversos, 
como, porexemplo, 
reeeilas e despesas, 
Suagrandevantagem 
reside na forma de 
mgnipula^ao dos 
dados, que podem 
sercakulado:ji 
checados e alurados 
com rapidez. 



B 20: PRINT "PALAVRA MUITO GRAN 

DE]"; CHRS (7): FOR X - 1 TO 30 

: NEXT : GOTO 410 

440 IF VAL (AS) < > TKEN 5 

60 

450 BS - LEFTS {A3.1]: IF BS < 

"A" OB BS > "Z" THEN 600 
460 CS - MIDS (AS, 2, 2) 
470 IF VAL (CSl < 1 OR VAL ( 
CS) > 30 THEN 600 
480 IF VAL (CS) < lO'THEN AS 

- BS + " " + MIDS (AS. 2) 

490 DD3 - MIDS (AS. 4,1): IF DD 

3 < "A" OR DDS > "Z" THEN 600 

500 E3 - MIDS (A3. 5) 

510 IF VAL (ES) < 1 OR VAL ( 

ES) > 30 THEN 600 

520 IF VAL (ES) < ID THEN AS 

- LEFTS (A3.4J + - - + MtDS ( 
AS. 5) 

530 OS = MIDS (AS. 7,1): FOR D 

- 1 TO LEN (OPS) : IF OS < > 
MIDS (0PS-D,1) THEN NEXT : GOT 
600 

540 DP " VAL ( BIGHTS (AS.D): 

IF DP < OR DP > 7 THEN 600 
550 VTAB 2.1: HTAB 1: CALL - 9 
56: PRINT "A entrada e. una EQUA 
CAOVAS - CHRS (131) + AS: GOT 
610 

560 VTAB 21: HTAB 1: CALL - 9 
58 r PRINT "A entrada e um VALOR 

570 IF RIGHTS (AS.l) - " " TU 
EN AS - LEFTS (AS. LEN (AS) - 
1) : GOTO 570 
580 IF LEN (AS) < 7 THEN AS ' 

■ " + AS: GOTO SSO 
5^0 AS = CHRS (129) ♦ AS: GOTO 

610 
600 VTAB 21: HTAB 1: CALL - 9 
5B: PRINT "A ent.rada e um ROTUL 
O'-tAS - CHRS [130J + AS 
610 DS(CC»CR) - A9: FOR D - 1 T 
O 500: NEXT 

620 IF CC > CX THEN CX - CC 
630 IF CR > RX THEN fiX = CR 
640 IF MO " THEN MO - 1 r GOS 
UB 70 
650 RETURN lUS 



Illlllllll 



AVALANCHE: 
AS PEDRAS ROLA 




Illlllllll 



Mais e meis problemas se abatem sobre 
Willis. AI6m das sarpentes 
assassjnas. dos burscos e da alta da 
mardi pedras gigantescas rolam 
morro abaixo, amsa^ando sotarr^-lo. 



MO) 



Nosso pcrsonagem est^ em grandes 
dificuldades: enquanto os cabriios mon- 
leses devoram seu lanche, ele tetua es- 
calar o penhasco, para nSo morrcr afo- 
gado nas aguas do mar. For todo o ca> 
minho, buracos e cobras ameacani sua 
vida. E, para compleiar, faremos com 
que ele se vcja diante de uma avalanche 
de giganiescas pedras! 

Teremos basianie trabalho na criafao 
deste novo problema, Prccisaremos co- 
iocar uma pedra no lopo da encosta, 
empurrd-ia morro abaixo. anima-la pa- 
ra que pare^a esiar rolando, verificar se 
elaaiingiu Willie e. finalmence, apaea- 
la, quando chegar ao mar. Como esse 
processo e urn tanio complexo, vamos 
apresenia-lo em dudS partes- 



A primeira parte da rotina movimen- 
la a pedra e dk inicio k sua descida en- 
costa abaixo. A segunda verifica se Wil- 
lie foi acingido e coloca a pedra no to- 
po da encosta, Apresenlamos aqui ape- 
nas a primeira parte. Digite-a, mas nao 
a execute ainda. Incompleia, a retina 
nao funcionar^. 



300 


REM 


ir nz,bok 


310 


H£M 


Id hi , tb7356) 


32D 


REhl 


Id be. 15616 


330 


REM 


id a, 45 


340 


RCH 


call 5B217 


350 


REM 


Id de.32 


360 


PEM 


add hl.dK 


370 


RCK 


Id t5?lB6) .hi 


360 


REM 


Id be. 57120 


39Q 


REM 


Id a. 42 


400 


PEW 


call 5B217 


410 


REK 


bok Id hK (573561 


420 


PEM 


dec hi 


430 


REM 


Id [57356) .hi 


440 


PEM 


Id aa 



450 REM Id (573561 ,a 

460 BEK ret 

470 HEH org 59137 

4B0 REM bri * 

490 REM org 59097 

500 REM bma * 

Antes de mais nada, a rotina de mo- 
vimentaf^o da pedra verifica 5e a ava- 
lanche pode ocorrer no nivei atual do jo- 
go. Como VOC& deve se lembrar. Willie 
tenia nao ser alcan^ado por pedras. sal- 
tando sobre eias, no nivel um e no nivei 
quatro . A variiivei correspondence ao ni- 



V 

si 
c 
q 

5 

C' 

f- 
Si 

ji 
t* 
P 

e 
a 



10 


REM 


org 58993 


20 


PEH 


bar Id a. (57344) 


30 


REM 


cp 


40 


PEM 


jr Ziblfl 


SO 


REM 


rp 3 


60 


REM 


jr z ,blm 


70 


REM 


ret 


eo 


PEH 


bloi Id a, (57358) 


90 


REM 


CP 1 


100 


REM 


jr 7 . bma 


110 


HEM 


Id hi, (57356J 


120 


REM 


Id be. 57120 


130 


REM 


Id a. 42 


140 


REM 


call 58217 


150 


REM 


inc hi 


160 


REM 


Id d.45 


170 


REM 


Id be. 15616 


180 


PEM 


call 58Z17 


190 


REM 


Id hi . (57356) 


200 


REM 


Id de.460 


210 


REM 


abd hl,de 


220 


REM 


J r z . br 1 


230 


REM 


Id hi, (57356) 


240 


REM 


Id de. 22560 


250 


ue:m 


ddd hKde 


260 


REM 


Id a, (hi) 


270 


REM 


CQ 15 


?R0 


REM 


jr z.bri 


^M 290 


REM 


cp 45 




Illlllllll 



VERIFICAC AO 

DONfVELDOJOGO 



ROTINADEMQVIMENTAC AO 
DA PEDRA 



ANIMACAO COM 



DUAS ESTRUTURAS 



ROLANDO PELA ENCOSTA 
APEDRACHEGAAOMAR 



DE VOLTA AO TOPO 



WILLIE FOIATINGIDO? 



vel aiual do jogo e armazenada na po- 
si^So 57344 da mem6ria; o valor indi- 
ca nfvel um; o valor 3 aponta o nivel 
quatro. 

Assim, o conteudo do endere^o 
57344 i carregado no acumulador e 
comparado inicialmcnte com o vaior 0, 
e, depots, com 3. Se qualquer um des- 
ses valores estiver presente. a insiru^ao 
Jr z,bLm faz com que o processatJor saJ- 
le para a rotina de movimenta^ao da 
pedra. Caso conirdrio, o processador 
enconira a instru;ao rel e retorna para 
a roiina principal do jogo, 




QUAL DASPEDRAS? 



Para que possamos animar a pedra, 
exisiem na memdria dois conjuntos de 
dados para dois diferentes desenhos da 
pedra. Quando s3o impressos alternada- 
menle na tela, eles d^o a impressfio de 
que a pedra estd rolando. 

O processador precisa saber qua) foi 
o uUimo desenho imprcsso na tela, pa- 
ra poder selecionar adequadamente o 
pr6ximo. Obiem essa informacao no en- 
derepo 57358. onde hd uma variavel cu- 
jo conteudo e ou \. Esse valor e car- 
regado no acumulador e, ^e For igual a 
i, processador salia para a rotina 
bma. que sera dada mais tardc. Caso o 
conteudo do endere^o 57358 seja igual 
a 0, o processador prossegue com a ro- 
tina aqui apresentada, 

Cumo voce podera perceber. a vaiid- 
vel no endcret^o 57358 oscilara — se seu 
conteudo Tor I, serd Lrocado para e 
vice-versa. Assim, quando o processa- 
dor voliar a utili;?ar a roiina de movi- 
menta;;ao da pedra, ele ira executar a 
pane do programa que deixou de lado 
na vez anterior, imprimindo o outro de- 
senho da pedra. 

Naiuralmente, o primeiro valor do 
conteudo de 57358 c deflnido pela roti- 
na de inicializa^ao incumbida de ajus- 
tar o andamento do jogo. 



lUPfllMIR E APAGAR 



Osendereqos 57356 e 57357 guardam 
a posi<?ao da pedra^ cujo vak)r e carro- 
gado no par HL. O par BC e carregado 
com 57120, que corrcsponde ao iiiicio 
dos dados do primeiro desenho da pe- 
dra. O codigo 42 (vermelho sobre fun- 
do azul ciano) 6 carregado em A. 

A roiina print, que cometpa no ende- 
reijro 57217, e chamada. Como de co.*i- 
tume, ela imprime os dados apontados 
pelo conteudo de BC com a cor especi- 
ficada pelo conteudo de A, na posit;ao 
dada pelo conteudo de HL, 

O par HL ^ incrementado e passa a 
apontar para a posi^ao k direita da pe- 
dra. Por enquanto, estamos fazendo 
apenas uma pedra roiar numa parte pla- 
na da montanha. Mais tarde, voc5 ver^ 



cpmo uiilizar um dcslocamento de um 
e^pa^o para simular a descida da pedra 
pela encosta, 

O acumulador A ^ carregado com 45 
(c6digo da cor ciano sobre fundo ciaio) 
e opar BC, com 15616. Esta po&i^Io es- 
t^ na ROM e inicia os dados para um 
espa^o vazio. A rotina print e, entao, 
chamada» de novo. A opera<;io faz com 
que a pedra anteriormente Jmpressa se- 
ja apagada. Sem isso, veriamos na tela 
uma nieira continua dc pcdras. 



FIM DA LINHA 



A proxima tarefa consiste em vcrifi- 
car se a pedra atingiu o canto esquerdo 
da tela — nessa direcao, ela pode ir alem 
da posivao 480. Em seguida» o par HL. 
ja incrementado. ^ recarregado com a 
posi^ao armazenada cm 57356 e 57357. 
O par DE e carregado com 480 e esse 
valor e sublrafdo de HL. 

Se o rcsuliado for igual a zero, a pe- 
dra csl^ na posii;ao 480 — ou seja, che- 
gou ao rim da descida. A instrui^ao jr 
z,brl manda. eniao, o processador para 
a rotina bri. Esta. por sua vez, apaga a 
pedra do final da cncosia e reajusia sua 
posi<;ao. mandando-a de volta para o to- 
po da montanha. 

Uma vez que nao apresentaremos a 
rotina bri no momento, voce precisara 
esperar um pouco mais para ver esta 
parte do programa funcionar. 



CHEGOU AO MAR? 



Como a mar^ estd subindo, a pedra 
podera chegar a agua antes de aicani;ar 
o canto esquerdo da tela. Assim, sera 
precise verificar se a pedra afundou. Ca- 
so tenha se chocado contra a agua. de- 
vera ser colocada no tope de aovo. 

O metodo mais simples para verifi- 
car se a pedra atingiu a agua consiste em 
analisar a cor da posigao de tela imedia- 
tamente abaixo dela. Se for branco so- 
bre azul, a cor do mar, a pedra deve ser 
apagada. O par de registros HLe nova- 
mente carregado com a posicao da pe- 
dra que se encontra nos cnderegos 57356 
e 57357. O par DE. por sua vez. ^ car- 
regado com 22560. Na verdade, 22528 1 



DIGODtMAQm 



posi^;6ei dc mcmoria separam a posi^ao 
na tela (que eiild no arquivo de video) 
da cor que Ihe corresponde (que csta no 
arquivo de cores). O valor 32 e adicio- 
nado a esse numero para que o endere- 
i;o da cor da posit^ao de tela na linha 
abaixo — ou 32 caracleres depois — se- 
ja localtzado. 

Oscontciidos de HL e DEsao soma- 
dos em seguida, Sempre se ulilizam es.- 
ses pares de registro para fazer adii^oes 
ou subLra^oes entre niimeros de dois 
bytes, guardando-se o resultadoem HL. 
Ponanio, o conieudo da posigao de me- 
miria apontada pelo par HL — que 
agora equivale k posi<;ao adequada no 
arquivo de cores — e carregado no aca- 
mulador por meio da instru<;ao de en- 
dere^^amemo indireto Id ^AW- 

Esse valor e. enlao^ comparado a 15, 
queeocodigode branco sabre azul, on 
seja, a cor do mar. Se o mar estiver abai- 
xo da pedra, a inslrut^ao jr,ibri irianda 
o processador para a rotina que apaga 
a pedra e a coloca de volia no lopo da 
encosta. 



RECONHECIMENTO DO DECUVE 



Comojalemos no acumuladoracor 

do caracterc abaixo da pedra, vamos 
aproveitar para verificar se e!a esia ou 
nao no chao- Para isso, o conteiido do 
dtumulador e comparado com 45, c6- 
d;go correspondence a cor do ceu. Se os 
dois valores forem iguais, esla cor esta 
por baixo da pedra, e o processador con- 
tinua com a parte seguinle da roiina. 
Caso conirario, a pedra ainda est^ fir- 
me no chao, ea instru^ao jr iiz,bok faz 
processador pular para o rotulo bok, 
Este deixa a pedra onde ela estd, e sim- 
piesmenle acena as vari^veis antes de re- 
lornar. 

Voce deve ter reparado que, ate ago- 
ra, a pedra s6 tern se movido para a es- 
querda. Sua posi<;ao vertical nao foi al- 
lerada — ou seja, o declive da encosta 
nao foi levado em conla. Ponanto, a pe- 
dra so podc estar fora do chao (com a 
cor do ceu sob ela) se liver passado por 
uma se?aa inclinada com um caractere 
a esquerda — o que significa que preci- 
samos apagd-la e imprimi-la um carac- 
tere abaixo. Em linguagem de mdquina, 
ludo isso e feilo lao rapidamente que 
nosso olho — ou a tela de TV — nao 
lem tempo de reagir. Assim, voce nao 
podera ver a pedra em sua posi-gao in- 
termediaria, indo para o ar ou vollan- 
do para o chao. 

Depois que o par de registros HL e 
carregado com a posigao atual da pedra 
no video, atrav-es das posi^des 57356 e 
57357. o par BC c carregado com os da- 



dos da ROM para um espa^o va2io, co- 
mo antes. O acumulador A, por sua vez, 
e carregado com 45 — ciano sobrc cia- 
no, A rotina prini e, entao^ chamada pa- 
ra apagar a pedra. 

O par DE ^ carregado com 32, valor 
que se adiciona ao conieudo HL, o que 
faz o apontador nesse par de registros 
movcr-se uma posi<tao para baixo na te- 
la. Para ajustar a posii;ao da pedra, o 
apontador em HL e copiado de voha 
nos enderei^os 57356 e 57357. Lembre- 
se de que a instru^rao Id apenas copia o 
conteiido de um enderei^o ou de um re- 
gistro em outro enderei;o ou regjstro, 
conieudo do lugar de partida pcrmane- 
ce inalierado. Logo, quando BC e car- 
regado com o cnderc<;o inicial dos pa- 
droes da primeira Hgura da pedra, a no- 
va posii;ao na tela ainda esta em HL. O 
acumulador e carregado com 42 — vcr- 
melho sobre ciano — e a rotina prinl e 
chamada, imprimindo uma pedra ver- 
meiha uma pos^gao abaixo da posi^ao 
anterior de impressao. 



ROLAi^DO PELA ENCOSTA 



Quando a pedra e novameme impres- 
sa — nao imporia se uma posi^ao abai- 
xo ou nao — . as variaveis tcm que ser 
reajustadas para Tazer com que ela pa- 
re<;a estar rolando morro abaixo. 

Em scguida, o par HL volia a ser car- 
regado com a posigao atual da pedra, 
pois a roiina bok pode ter sido chama- 
da diretamenic, nao se executando a 
parte do programa que muda a figura 
de lugar. Depois de decremcniado, o 
conteiido de HL e carregado em 57356 
e 57357, Na proxima chamada da roti- 
na de movimentat;ilo, esse aponiador 
indicara uma posiv'ao a esquerda. 

Se o conieudo da variavei do Lipo de 
pedra — em 57358 — e 0, o processa- 
dor continua nesse laipo da rotina e im- 
prime a primeira figura. Para que a se- 
gunda figura seja impressa, I e carrega- 
do em 57358 pelo acumulador. 



A pnmcira pane da rotina de movi- 
meniat^ao da pedra, aqui apresentada, 
inicia o deslocamento da figura e veri- 
fica se ela colide com alguma coisa. Es- 
sa rotina nao funcionara sem a scgun- 
da parte, que continua imprimindo a pe- 
dra na tela. Assim, por enquanto, ape- 
nas digite e monte estas linhas; nao icn- 
tc cxecuta-las. 

10 ORG 19789 

20 BAR LDA 16238 

30 BEQ BLM 



■■■■■■II 


40 


CMPA 13 


50 


BCQ BLM 


60 


RT3 


70 


BLM LDX 18Z53 


80 


LDU #1536 


90 


PSHS X 


100 


JSP CHAHPR 


110 


PULS X 


120 


LEAX -1,X 


130 


CMPX 15344 


140 


BEQ BRl 


150 


STX 18253 


160 


LDA,X 


170 


CKPA t3AA 


180 


B£Q BRl 


190 


CMPA tS55 


200 


B£Q BNU 


210 


CMPA #S50 


220 


BEQ BNH 


230 


LDA 12 


240 


STA 18252 


250 


BNH LEAX 289. X 


260 


LDA .X 


270 


CMPA I5AA 


280 


BEQ BFll 


290 


CMPA 1555 


300 


BNE BOK 


310 


LEAX -33.x 


320 


STX 18253 


330 


CHARPR EQU 19402 


340 


eOK IQU 19661 


350 


BRI EQU 19894 



Antes de mais nada. a roiina de mo- 
vimenlai;ao da pedra verifica se a ava- 
lanche podeocorrer nonivel atual do jo- 
go, Como voce deve se lembrar, Willie 
procura nao ser alingido pelas pedras, 
saltando sobre elas, no niVel um e no ni- 
vel quatro. A variavei correspondenie 
ao nivel do jogo esii armazenada na po- 
sigao de memdria 18238; o valor Oindi- 
ca o nivel um; o valor 3 aponta o nivel 
quairo. Assim, o conieudo do endere- 
[;o 18238 6 carregado no acumulador; se 
o valor for ou 3 a insirugao BEQ Taz 
processador pular direiamenie para a 
rotina de movimeniagao da pedra. Ca- 
so contrdrio^ o processador encontra a 
insLruipao RET e retorna para a rotina 
principal do jogo. 



APAGUE A PEDRA 



Na posii^ao de mcmoria 18253 esta a 
variavei que contem a posi^ao atual da 
pedra. Essa posi^ao e carregacJa no re- 
gistro X, e o numero 1536, no registro 
U. Como Deo apontador da pilha do 
usuario, a regiao da mem6ria siluada 
acimadoendere^o 1536 passa a ser, pa- 
ra lodos OS fins, a pilha do usuirio. A 
posigao 1536 perlence ^ mem6nade te- 
la, correspondendo a uma pane do c^u. 
O processador pula, eniao, para a sub- 
roiina CHARPR. 

Lembre-se de que essa sub-rolina uti- 



Illlllllll 
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liza OS dados da pilha do usuario e im- 
prime na tela um byte de cada vez (um 
caractere apontado por X). Logo, uma 
pane do ceu e imprcssa sobre a pedra, 
apagando-a da tela. 

Observe que, antes da rotina 
CHARPR ler sido chamada, o conteii- 
do de X foi guardado na pilha, mas nao 
removido do registrador — sen valor foi 
simplesmente copiado. Procedemos as- 
sim porque a rotina CHARPR pode in- 
terferjr com o registro X, jd que impri- 
me oito bytes de dados que formam um 
caractere, Ao chamar uma sub-rotina, 
convert! sempre guardar na pilha o con- 
teudo de um registro que precisamos 
preservar. A regra e: na duvida, empi- 
Ihc, voce eviiard vdrios erros. 



FIM DA ENCOSTA 



Para obter de votta a posi^ao na te- 
la, basta recuperd-la da pilha da maqui- 
na. A insirucao LEAX -1,X decremen- 
la o conteiido de X. que passa a apon- 
tar para uma posi^ao a esquerda. Esse 
valor e comparado com 5344* endercfo 
da posi^ao do canto esquerdo da tela, 
onde a pedra ira bacer ap6s ter descido 
toda a encosta. 

Se o valor de X for 5344, a pedra 
atingiu o canco da tela. A instru^ao BEQ 
BRI manda. entao, o processador para 
a rotina BRI, que leva a pedra de volta 
para o topo da montanha. 

Se X nao for igual a 5344, a pedra 
nao chegou ao canto da tela, Nesse ca- 
so. a instrug^o STX 1823 armazena a 
proxima posigao de impressao — que ^ 
um caractere k esquerda da anterior na 
variavel de posL^ao da pedra. que est^ 
em 1823. E nestanova posi^ao que a pe- 
dra sera imprcssa. 



WILLIE FOI ATI\GIDO? 



Precisamos, tambem, averiguar se 
Willie foi atingido pela pedra. Assim. 
antes que a nova pedra seja impressa, 
conteiido da posifao de tela aponta- 
da por X e carregado no acumulador 
por meio da instrug3o LDA >X- Em se* 
guida» esse valor e comparado com SSS. 
que e o c6digo de amarelo. a cor do c^u, 
e com $50, a cor da lingua da cobra. Se 
o caractere conlem S55 ou $50 — sen- 
do. portanto, parte do ceu on da cobra 
— o processador pula as duas prbximas 
instru^oes. Caso contrario. a pedra de- 
ve ler atingido Willie — ele ^ a linica fi- 
gura que pode estar em seu caminho. O 
sallo eniao nao ocorre. O acumulador 
i carregado com 2. Esse valor e arma- 
zenado na variivel chamada dead, que 



indica se Willie morreu ou nao. Ela se- 
ra verificada mais larde, em outra roti- 
na do jogo- 



A PEDRA AFUNDA 



A tarefa seguinte consiste em checar 
se a pedra alcanijou a superffcie da agua. 
Era caso afirmativo. nao seri precise 
imprimir uma pedra ali: ela ter^ que ser 
colocada» novamente, no topo da 
encosta. 

O conteudo do registro X & adiciona- 
do a 289, para indicar a pr6xima posi- 
<;ao na tela, uma linha abaixo. O niime- 
ro 289 resulta da operafSo 32 \ 8 + 32 
+ I — ou seja, para chegar k posi?llo 
imediaiamente inferior, dcvemos contar 
oito linhas de 32 bytes; como a pedra 
ocupa uma linha de pixels acima do 
chSo, somamos 32 bytes ao longo da 
memdria de tela; finalmentc, adiciona- 
mos o numcro I para compensar a sub- 
ira^ao anteriormeme feita para deslocar 
o apontador de tela uma posi<;ao para 
a esquerda. 

valor coniido nesse caractere t car- 
regado no acumulador por interm^dio 
da instrucao LDA ,X e, em segulda, 
comparado com SAA, que i o c6digo 
correspondence a azul, a cor do mar, Se 
o mar esii nesse caractere, a insiru^So 
BEQ BRI saJta o processador sobre a ro- 
tina que inicializa a volta da pedra k sua 
posigao no topo da encosta, 



POSlCAO 



J^ que e precise examinar a posi^ao 
de tela imedaaiamente inferior, podemos 
muito bem verificar se existe ceu naque- 
la posicto. Para isso. basta comparer o 
seu valor com S55, o cddigo da cor do 
c6u» 

Caso n§o haja cSu onde estd a pedra 
— ou seja, se ela estd no ch§o — , a ins- 
tru^ao BNE BOK salta para a rotina 
BOK. que imprime a pedra. 

Porem, se existe ceu por baixo da pe- 
dra, ela serd movida uma posi^ao para 
baixo e uma posi^So para a esquerda. 
Lembre-se de que agora o apontador de 
tela esta indicando uma linha de pixels 
abaixo da uttima posigao da pedra. Lo- 
go, dcvemos subtrair o valor 32 para 
mover uma linha de pixels, e o valor I, 
para mover uma posigao para a esquer- 
da. Isso e feito de uma so vez pela ins- 
tru^ao LEAX -33, X. 

Para imprimir a pedra no !ugar ade- 
quado, o processador irabalha direla- 
mente com a rotina BOK. Essa rotina, 
bem como a rotina BRI, serci exposta 
num pr6ximo ariigo- 



A parte da rotina de movimenta^ao 
da pedra que apresentamos a seguir ve- 
rifica o nivel do jogo e imprime a pri- 
metra figura da pedra e, se for o caso. 
faz com que ela role morro abaixo. 
Al^m disso, checa se a pedra chegou ao 
fim da €ncosta ou se ja alcan^ou a su- 
perffcie do mar. A segunda parte da ro- 
tina, que daremos num artigo fuiuro, 
verifica se Wilhe foi anngido, imprime 
a segunda pedra e recoloca a figura no 
topo da encosta. 

Digite e monic a primeira parte, mas 
nao a execute, pois a rotina s6 funciona- 
rd quando cstiver completa. 



10 


org 54400 


20 


Id a. (-522B) 


30 


cp 


40 


jr i,bl 


50 


cp 3 


60 


Jr z,bl 


70 


ret 


60 


bl Id a, (-5195) 


90 


CP 1 


100 


jr 2 . bn 


110 


Id hi , (62407) 


120 


Id de. (-5200) 


130 


Add hl.dfi 


140 


Id a, 13 


150 


puah hi 


16Q 


call 77 


I 70 


pop hi 


\H{) 


inc hi 


190 


Id a. 255 


200 


call 77 


ZiO 


Id hi, (-6200) 


220 


Id dff,4B0 


23f) 


ahc hi . de 


240 


jr z , mo 


250 


Id hi . (62407) 


260 


Id 6e. (-5200) 


270 


ridd hi .de 


2flO 


Id de.32 


2V0 


fldd hl.de 


.300 


cTdll 74 


.110 


CD 72 


320 


jr Zt^Q 


3 30 


CP 76 


340 


jr z.mo 


350 


rp 25 5 


360 


jr nz.bo 


370 


Id hi . (62407J 


360 


Id de. (-5200) 


390 


Add h\ .de 


40 1) 


Id a. 255 


410 


push de 


4 20 


call ;? 


430 


pop de 


440 


Id hi ,32 


450 


add hi ,de 


460 


Id (-52001 ,hl 


470 


Id de, (67407) 


460 


add hi >de 


490 


Id a. 13 


500 


call 77 


510 


bo Id hi, (-52D0J 


520 


dec hi 





iiii 


iiiiiinHHi 


5 30 


Id t-52O0> ,hl 


540 


Id a, I 


550 


Id {-5J95) .a 


560 


ret 


570 


bm call -13006 


580 


ret 


590 


no call -10953 


600 


ret 


610 


end 
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Ames de mais nada. a rotina verifi- 
ca se a avalanche de pedras 6 neeessaria 
no nivel atuaJ do jogo. Lembre-se de que 
Willie lenia escapar das pedras no^ ni- 
veis um e quairo. A variavel que indica 
oniveldojogoestaem-5228 — valor 
corresponde ao nivel um e o valor 3, 
ao nivel quairo. 

O conieudo desse endereco i carre- 
gado no acumulador e comparado ini- 
cialmente com Oc» depois, com 3. Seal- 
gum desses valores estiver presents a 
ins!rui?ao jr z,bl faz o processador sal- 
tar para a roiiua de movimentagao da 
pedra. Caso contr^rio, o processador 
enconira a instru^ao ret e retorna ao 
programa principal do jogo. 



QUAL DAS PEDRAS' 



Para criar o efeito de movimemo, uti- 
lizamos dois padr6es diferenles para a 
pedra, imprimindo-os alternadaniente. 
O processador precisa saber qual foi a 
uliima figura impressa para poder sele- 
cionar adequadamente a seguinie. Ob- 
tem essainforma(;ao noendereco-5195, 
onde cxiste uma varilvel cujo conieudo 
e ou L Esse valor e carregado no acu- 
mulador e. se for igual a 1 . o processa- 
dor saUa para a rolina bm que sera apre- 
sentada mais tarde. Caso contrdrio, ele 
prossegue com a rotina exposia aqui. 

Como voce vai perceber, o valor de 
-5195 elrocadosempre que sechama a 
rotina de movimenlacao. Portanio, o 
processador executa uma pane do pro- 
grama de cada vez. 



IMPflESSAO 



A posi?ao da pedra e armazenada nos 
enderei^os - 5200 e - 5 i 99. Seu valor e car- 
regado no par DE. O enderei^o inicial da 
Tabela de Nomes (TN), que esia arma- 
zenado nos enderegos 62407 e 62408, e 
carregado em HL. A soma dos valores 
nesse par de regislros fornece o valor 
adequado na TN, 

O acumulador A ^ carregado com o 
c6digo do padrao que forma o primei- 
ro desenho da pedra. Como voce vera 
na segunda parte da rotina, a outra pe- 



dra e formada por dois padroes. Em se- 
guida. a rotina 77 da ROM ^ chamada. 
encarrcgando-se de colocar o valor con- 
tido em A no enderego da VRAM apon- 
tado pelo par HL — ou seja, a rotina 
imprime a pedra na tela do computador. 



FIM DA ENCOSTA 



A etapa seguinte consiste em verifi- 
car se a pedra aiingiu o fim da encosla. 
Para isso. sua posifao e transferida de 
■5200 e -5199 para o par HL e o valor 
480 e carregado em DE, que representa 
a ultima posi<;ao que a pedra pode ocu- 
par. Esse valor e subtraido de HL. Se 
o resultado for zero, a pedra estd na po- 
si(;ao 480 — em outras palavras, chegou 
ao fim da encosta. A instrug^o jr z,mo 
manda, entao, o processador para a ro- 
tina mo. que apresentaremos mais lar- 
dc. Essa roiina encarrega-se de apagar 
a pedra e ieva-la de volta para o topo 
da montanha. 



A PEDRA AFUNDOU' 



Como a mare cst^ subindo rapida- 
mente, e provavel que a pedra atinja a 
agua antes de chegar ao fim do morrOn 

Precisamos verificar se ela afundou, 
Em caso afirmativo. a pedra sera reco- 
locada no topo da encosta. 

A rotina 74 da ROM cuida disso. Se 
a chamarmos com um enderego da 
VRAM em HL, ela devolvcr^ o conieu- 
do desse endere^o ao acumulador, 

Portanio, carregamos o enderego ini- 
cial da TN da VRAM em HL. A posi- 
i;^o da pedra na tela e carregada em DE. 
Adicionando os conleudos de DE e H L, 
obteniosaposigaoda pedra naTN. Po- 
rem, como estamos interessados no que 
existe abaixo da pedra, somamos 32 ao 
conteudo de HL. 

A rotina 74 i chamada e fornecc o 
padrao da figura que se encontra nessa 
posigao, Seu valor € comparado com 72 
e 76, que sao os cddigos dos dois pa- 
drOes de mar exisienies. Se o mar esta 
abaixo da pedra, a instrugSo jr i,mo 
manda o processador para a segunda 
parte da rotina, que apaga a pedra e 
ajustaa posigaopara o topo do morro. 



POSICAO 



Uma VC7 que lemos no acumulador 
o c6digo do padrao que estd abaixo da 
pedra, nao custa verificar se ele corres- 
ponde ao c^u- Para isso. comparamos 
o conieudo do acumulador com 255, 
que 6 c6digo do padrao de ceu. 



Se nao bd ceu abaixo da pedra — ou 
seja, se ela ainda esta no chao — a ins- 
iru^ao jr nz,bo faz o processador saltar 
ao roiulo bo, onde as variaveis sao ajus- 
tadas antes de retornar, Caso contrario, 
processador conlinua com a pane se- 
guinle da rotina. 



A PEDRA DESCE 



Voc^ deve tcr reparado que ate ago- 
ra a pedra so lem se movido para a cs- 
querda — o declive da encosta nao foi 
levado em conta. A pedra so pode estar 
fora do chao (com a cor do ceu sob ela) 
se acabou de passar por utna inclinagao 
— o que significa que precisamos apaga- 
la e imprimi-la uma posigao abaixo. A 
rapidez com que essa tarefa e execuia- 
da em codigo de maquina nos da a im- 
pressao de que a pedra permaneceu na 
superficie da encosta. 

O enderet;o inicial da TN da VR.^M 
e carregado em HL. O par DE recebe 
a posigao aiual da pedra e esse valor i 
somado em HL, Em seguida o codigo 
do padrao de ceu e carregado em A e 
a rotina 77 da ROM e chamada. Com 
esse procedimento, a pedra e apagada 
da posii;^o que ocupava na tela. 

O valor em DE foi preservado na pi- 
Ihae somado ao numero 32 em HL, pa- 
ra atualizar a posigao da pedra nos en- 
dere<;os - 5200 e - 5 199 e leva-la uma po- 
sigao abaixo da anterior. Finalmentc, 
■ soma-se o endereco inicial da TN da 
VRAM em HL e carrega-se o acumula- 
dor com o padrao da pedra. A rotina 77 
6, entao, chamada. Com isso, fizemos 
a pedra de*;cer uma posiipao, permane- 
cendo firme junto a encosta- 



ROLANDO PELA ENCOSTA 



Quer a pedra lenha descido, quer 
n§.o. as vari^veis que definem sua posi- 
(;ao devem ser ajustadas para fazer com 
que eia parega esiar rolando pela encos- 
ta da montanha. 

O par HL e mais uma vez carregado 
com a posigao da pedra. Em seguida, 
seu valor e decrementado e devolvido 
aos enderegos-5200 c-5199.Quando a 
rotina responsavel pela movimentagao 
da pedra for chamada novamente, a fi- 
gura tera sido deslocada uma posigao 
para a esquerda, 

O processador cominuou a executar 
essa parte da rotina e imprimiu na tela 
a primeira figura da pedra porque o con- 
teudo do enderego - 5 1 95 era 0. Para que 
depois imprima a outra figura, o valor 
I sera carregado em -5195 pelo acu- 
mulador. 
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Brasil 


Apple 11+ 1 




SinclBlrZX-81 


Filcres 


NEZaOOO 


Milmar 


Apple Senior 


Braaii 


Apple 11 + 




Sinclair ZX-ei 


Microdi glial 


TK-fl2C 


MuiUx 


MX-Compacto 


Brasli 


TRS-80 ModJV I 




Sinclair ZXai 


MIcrodigtIal 


TK'B3 


Omega 


MC-4Q0 


Brasli 


Apple 11+ J 




StnclairZX-ei 


Mlcrodigilal 


TK'BS 


Polymax 


Maxxi 


Braaii 


Apple 11+ 1 




Sinclair ZX-ai 


Prologica 


CP-200 


Paly max 


Poly Plus 


Brasil 


Apple 11+ 1 




Sinclair ZX 81 


Ritas 


RlnaoH'470 


Prologica 


CP-200 


Braaii 


S1nclalrZX-8l 1 




Sinclair ZX-ai 


Timox 


TlmexlOOO 


Prologica 


CP'3O0 


Brasil 


TRS^aOModJIt 


r 
i 


Sinclair ZX SI 


Timflx 


Tlmex 1500 


Pfoiogica 


CP-400 


Braaii 


TRS-Color 




TRS^aOModJ 


Dl&mac 


D-8000 


Prologica 


CP'SOO 


Brasil 


TRS-aOMod,lll 




TRSBDModJ 


Diftmac 


0-6001/2 


Ritas 


Ringo 1^470 


Brasli 


Sinclair ZX-81 




TRS-fiO Mod. 1 


LNW 


LNW-BO 


Sharp 


HolbJt HB-6000 Brasil 


MSX 




TRS-BDModJ 


Video Gonle 


Video Genial 


Spectrum 


Mlcroengenho 


1 Brasil 


Apple 11 + 




TRS^aO Mod Jll 


Dlgllus 


OGT-TIKJ 


Spactrum 


Microengenho 


11 Braaii 


Apple No 


1 
i 


TRS-80 Mod.lll 


Digitus 


OGT'IOOO 


Spftctrum 


Speclrum ed 


Brasil 


Apple 11 + 




TRS-aOModJli 


Kern n ton 


NaJaaOO 


Su porta 


Venuail 


Braaii 


Appio 11 + 




TRS-BO Mod. Ill 


Prologica 


CP'300 


Sycofnig 


SIC] 


Brasil 


Apple 11+ ; 




TRSaO Mod Jll 


Prologica 


CP-SOO 


Sysdata 


Sy&data III 


Braaii 


TRS-60ModJII j 




TRs ao Mod Jll 


SyEdata 


Sysdala 111 


Sysdala 


Sysdata iV 


Brasil 


TRS-SOModJV J 




Tns-eoMod.iii 


Sysdota 


Sysdala Jr. 


Sysdala 


Syadata Jr. 


Brasil 


TRS-80 Mod.111 1 


1 


TRsao Mod.lV 


Mullk 


MX'Compacto 


TImex 


Timex 1000 


USA 


Slnciair2X-8l J 


r 


rns-eo Mod.iv 


Syadata 


Syadata IV 


TImex 


TlmaxlSOO 


USA 


SinclalrZX-ai ] 




TflS-Color 


Codlmex 


C8650B 


TImex 


Timex 2000 


USA 


Sinclair Spactrunil 




TRS'CoIOr 


Dyn acorn 


MX-16D0 


U nitron 


APII 


Brasil 


Appia|i + 




TRS-CoEor 


LZ 


Color S4 


Victor do Brasli 


EippallPius 


Brasil 


Apple 11 + 




TRS Color 


Microdlgital 


TK5-ai» 


Victor do Braall 


Elppe Jr. 


Brasil 


Apple 11 + 




TRS' Color 


Prologica 

1 


CP-400 


Video Qenia 


Video Genie 1 


USA 


TRS'BOModJ ■ 


1 INPUT foj especialmente projetado para 


_. 


1 


rf 


hHi 


1 




microcompuladores compatlve 




H..H TUS'SO L 


koZj TK 2aoa 


fhrimsx 






inhas exjstentes no mercado, 

]s blocos dfi textos e hstagens de programas aplicados ^^^ 






Kundo ««nblcm» lor segurda de uma 
vDLi, entlo tanio o kxto como os | 




1 


— -^ 


_ 


ipeoas a determinadas linhas de micros podem ser 
(ientiflcados por meio dos seguintes sfmbolos; 


wmuM spectrum 


Ul TRS-Calor L 


kJ Apple II 


programas que se seguem passani a sef 1 



PROGRAMAgAO BASIC 

SimulapSo e previsao. Simula?ao de nLimeros randomicos, 
Amostragem e pesquisa. Simulapao de uma lotena esportiva. 

PERIFERICOS 

que 4 um disco rigido. Capacidade e velocidade- 
Como conectar um disco rfgido. AplicagSes. 

aplicaqCes 

Planejamento de uma planiiha eletrfinica. Usos gerais. 
Orpamento familiar. Digitacao do programa. 

PROGRAMAQAO DE JOGOS 

As regras do Jogo da Senha. Definipao das cores. 
Escolha a melhor estrat^gla. 




